Дано натуральное число n, символы S1..Sn. Определить число вхождений в последовательность S1..Sn группы букв abc,aba — Pascal(Паскаль)

uses crt;
const nmax=1000;
var s:array[1..nmax] of char;
    n,i,k1,k2:integer;
begin
clrscr;
repeat
write('n=');readln(n);
until (n>0)and(n<=nmax);
for i:=1 to n do
read(s[i]);
readln;
k1:=0;k2:=0;
for i:=1 to n-2 do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c')then k1:=k1+1
else if (s[i]='a')and(s[i+1]='b')and(s[i+2]='a')then k2:=k2+1;
write('abc=',k1,' raz   aba=',k2,' raz');
readln
end.