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' .