срочно помогите пожалуйста

[qwasoc20]

var
a,b,q:integer;
c,d:string;
e,f:integer;
begin
readln(c);
readln(d);
e:=length(c);
f:=length(d);
q:=0;
for a:=2 to e do
for b:=2 to f do
if (c(a-1)+c(a))=(d(b-1)+d(b))then(q):= q+1;
writeln(q);
end.



я не пойму где ошибка

[newerow1989]

c,d:string;

if (c(a-1)+c(a))=(d(b-1)+d(b))

Так нельзя!!!

(q):=

Это что за скобки???

Вот исправленное:

var
   a,b,q:integer;
   c,d:string;
   e,f:integer;
begin
   readln(c);
   readln(d);
   e:=length(c);
   f:=length(d);
   q:=0;
   for a:=2 to e do
      for b:=2 to f do
         if (c[a-1]+c[a])=(d[b-1]+d[b]) then
            q:=q+1;
   writeln(q);
   Readln;
end.

[qwasoc20]

тебе написать задание ?

[qwasoc20]

тебе написать задание ?
(спасибо что хоть ответил)=)

[qwasoc20]

СПАСИБО ВСЕ ПОДХОДИТ ВЫРУЧИЛ ПАЦАНА =)

[newerow1989]