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