Паскаль-Подсчитать число одинаковых элементов на соответствующих позициях в двух строках

[tanyhaftv]

Подсчитать число одинаковых элементов на соответствующих позициях в двух строках, используя для этого указатели на строки

[Скарам]

Наработки в студию,иначе обращайся во фриланс(в остальные темы тебе писать не буду,но и для них тоже самое),здесь помогают,а не решают.

[tanyhaftv]

var q,w:string;
  a,s:^char;k,i:integer;
begin
 writeln ('vvod 1 stroki');
 readln (q);
 writeln ('vvod 2 stroki');
 readln (w);

 a:=@q[1];s:=@w[1];
 i:=1;
 k:=0;
 while (i<=length(q))and(i<=length(w)) do
 begin
  if a^=s^
    then k:=k+1;
  a:=@q[i+1];
  s:=@w[i+1];
  i:=i+1;
 end;
 write (k);
 readln;

end.

так? остальные не знаю... надо мне помочь

[Lauraldo]

А зачем так мучиться с адресной арифметикой?

{$X+}
uses strings;

var
   q, w: string;
   a, s: PChar;
   i, k: Word;
begin
     write ('a:');
     readln(q);
     write ('s:');
     readln(w);
     i := 1;
     k := 0;
     getmem (a, Length(q) + 1);
     getmem (s, Length(w) + 1);
     a := strpcopy (a, q);
     s := strpcopy (s, w);
     while ((i < StrLen(a)) and (i < StrLen(s))) do begin
           if a[i] = s[i] then
              Inc (k);
           Inc (i);
     end;
     Write(k);
     readln;
end.