program n_66; var x, max:real; i: integer; begin writeln (039;Введите

Program n_66;
var x, max:real; i: integer;
begin
writeln ('Введите число');
readln (max);
for i:=1 to 9 do begin
writeln (x);
if xgt;max then max:=x
end
writeln ('максимум -', max');
end.
Встречено 'writeln' а ожидалось ';'