После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"
Тут решение сложное обращайся к поисковику
1.a
2.b
3.b
4.e
5.e
6.f
7.e
8.d
по-моему такие ответы,точно уже сейчас не помню, а дальше у вас на фото не видно.)
const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.