Пишет, что ' встречено неизвестное имя s1 '
Не знаю, что делать, уже все перепробовал

program Z1;
begin
var s1, s2, real:

s1:= 'abracadabra';
s2:= 'bravo';
if s1 < s2 then
writeln(1)
else
writeln(2);

end.

у вас неправильно описаны переменные, вы присватваете переменным s1 и s2 тип real, это тип изпользуется для чисел. а потом в программе этим переменным присваиваете текст. вот он он и пишет ошибку

и вторая ошибка, переменные в var оптсываются до begin

на фото правильная прога с комментариями, если я поавильно поняла что должна была делать твоя