why doesn't this code run

Question

program Project;
VAR
mo,gr,pr:real;
name:char;
begin
repeat
readIn(name,pr,gr);
mo:= ((pr+gr) / 2)
if (mo >= 10); then
begin
writeln ( Ο μαθητής Χ προβιβάζεται);
end
else
begin
writeln ( Ο μαθητής Χ πρέπει να επανεξεταστεί);
end;
readIn;
end.

Answer 1

Because of the char it is 'chr'  not 'char' .

Answer 2

• The built‑in routine is called readLn, with an L, not readIn.
• If you start a tail‑controlled loop with the keyword repeat, you must conclude it with until and a Boolean condition.
• The intervening semicolon (;) between the if condition and the keyword then is not supposed to be there. Remember, in Pascal the semicolon separates statements. Statements are productive, expressions are not.
• Literal character strings must be delimited by a typewriter apostrophe ('). That means the messages you want to print with writeLn must have a ' to the left and to the right.

Answer 3

program Project;

VAR
  mo, gr, pr: real;
  name: string; // Changed to string for names

begin
  repeat
    readln(name, pr, gr); // Changed to readln for input
    mo := (pr + gr) / 2;
    
    if (mo >= 10) then
      writeln('Ο μαθητής Χ προβιβάζεται')
    else
      writeln('Ο μαθητής Χ πρέπει να επανεξεταστεί');
      
    // The `readIn` procedure call at the end is removed as it is not needed
  until false; // Added termination condition for the repeat loop
end.