Сравнение массива символьных переменных и строковой константы

Сравнение массива символьных переменных и строковой константы осуществляется посимвольно.

Пример: Написать оператор сравнения символьного массива А и слова "кот".

if (a[1]='к') and (a[2]='о') and (a[3]='т') then...

Задача. Подсчитать количество букв "о" в введенном слове.

program prim;

var i,s,l:integer;

a:array[1..40] of char;

begin

writeln('введи слово');

i:=1;

while not eoln do begin

read(a[i]); i:=i+1; end;

l:=i-1; {длина слова }

readln; {закрыть строку ввода}

s:=0;

for i:=1 to l do if a[i]='o' then s:=s+1;

writeln('букв "о" в слове =',s);

end.

Задача. В введенном слове поменять местами первую и последнюю буквы. Работу закончить, если введено слово “end”.

program prim;

var a:array[1..40] of char;

i,l:integer;

c:char;

label 1,2;

begin

1: writeln(‘введите слово’);

i:=1;

while not eoln do begin

read(a[i]); i:=i+1; end; readln; l:=i-1;

c:=a[1]; a[1]:=a[l]; a[l]:=c;

writeln(a);

if (a[1]=‘e’) and (a[2]=‘n’) and (a[3]=‘d’) then goto 2 else goto 1;

2: end.