Паскаль - помогите найти ошибки в моем коде

[AnnTIKH]

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

program ukaz;
var 
  st1,st2:^string;k,i:integer;
begin
 writeln ('svobodno: ',memavail);
  write ('vvod 1 stroki: ');
  new(st1^);
  readln (st1^);
  write ('vvod 2 stroki: ');
  new(st2^);
  readln (st2^);
 
   st1:=@st1^[0];st2:=@st2^[0];
   k:=0;
for i:= 1 to length(st1^) do
 begin
  if st1^=st2^  then k:=k+1;
    st1:=pointer(integer(st1)+1);
    st2:=pointer(integer(st2)+1);
 end;
     writeln ('Cislo odinakovix elementov: ',k);
     readln;
end.

[Stilet]

Может быть нужно так?:

var a,s:^Char;q,w:string;c,i:integer;
begin
 q:='12345'; a:=@q[1];
 w:='12345'; s:=@w[1];
 i:=1; c:=0;

 while (i<=Length(a))and(i<=Length(w)) do begin
   if (a^=s^) then inc(c);
   inc(i);inc(a);inc(s);
 end;
 write(c);
end;

[AnnTIKH]

Сначала именно так я и сделала, но мне сказали не усложнять код, и написать его через указатели сразу(то есть как в разделе var у меня написано)

[Stilet]

Твой преподаватель двоечник, купивший диплом. Можешь так ему и передать.
По крайней мере учить ему в западло.

пиши так: new(st1); и new(st2);

[AnnTIKH]

ой, в коде у меня так и прописано: new(st1); new(st2); / это я здесь неправильно написала

[Stilet]

Тогда не понимаю что тебе не понравилось.

[AnnTIKH]

Число одинаковых элементов считается неправильно

[AnnTIKH]

Написала я программку, которая более-менее соответствует реальности. теперь другая загвоздка: элементы в строках просматриваются через один. не понимаю почему так

program ukaz;
uses crt;
var
  a,s:^string; k,i,m:integer;
begin
 clrscr;
 writeln ('vvod 1 stroki'); new(a);
 readln (a^);
 writeln ('vvod 2 stroki'); new(s);
 readln (s^);
   k:=0;
  if length(a^)>length(s^) then m:=length(s^)
  else m:= length(a^);
for i:=1 to m do
 begin
   writeln('s^:',s^[i]); writeln('a^:',a^[i]);
 if a^[i]=s^[i]
 then k:=k+1;
  a:=@a^[i];
  s:=@s^[i];

 end;
 writeln ('chiclo odinakovix elementov= ',k);

 getmem(a,length(a^));
 freemem(a,length(a^));
 getmem(s,length(s^));
 freemem(s,length(s^));
 writeln('svobodno ',memavail,' bait');
 readln;


end.

[Stilet]

Боже, какой же фигне вас учат...

program ukaz;
uses crt;
var
  a,s:^string; k,i,m:integer;
begin
 clrscr;
 writeln ('vvod 1 stroki'); new(a); readln (a^);
 writeln ('vvod 2 stroki'); new(s); readln (s^);
 if length(a^)>length(s^) then m:=length(s^)
  else m:= length(a^);
for i:=1 to m do   if a^[i]=s^[i] then k:=k+1;

 writeln ('chiclo odinakovix elementov= ',k);
 dispose(a);dispose(s);
 writeln('svobodno ',memavail,' bait');
 readln;


end.

[AnnTIKH]

Спасибо!!! Вы гений!