s:='информатика'; - тут переменная s не описана, вместо нее описана переменная s1 (Var s1:string;) Решение: исправить описание на var s:string;
c:=c+s - делается попытка сцепить символ со строкой и результат присвоить символу, что недопустимо: строка не может поместиться на место символа. Решение: записать s:=c+s;
Отсутствует вывод результатов. Тогда непонятно, зачем что-то выполнять вообще. Решение: добавить строку Writeln(s); перед строкой end.
Посмотри внимательно: заявлена переменная s1, а потом 1 потерялась (там, где информатика и в предпоследней строчке). Главная ошибка на предпоследней строчке в том, что переменной символьного типа с пытаются присвоить переменную строкового типа s. Лучше бы наоборот. s1:=c+s1; и после выражения обязательно должна быть ;
Решение: исправить описание на var s:string;
c:=c+s - делается попытка сцепить символ со строкой и результат присвоить символу, что недопустимо: строка не может поместиться на место символа.
Решение: записать s:=c+s;
Отсутствует вывод результатов. Тогда непонятно, зачем что-то выполнять вообще.
Решение: добавить строку Writeln(s); перед строкой end.
заявлена переменная s1, а потом 1 потерялась (там, где информатика и в предпоследней строчке).
Главная ошибка на предпоследней строчке в том, что переменной символьного типа с пытаются присвоить переменную строкового типа s. Лучше бы наоборот. s1:=c+s1;
и после выражения обязательно должна быть ;