задача 'ссылки'

[JUDAS]

Кстате Фаша, на тебе твой же код, который не вылетает

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type sp=^elem;
  elem = record
   st  : PChar;
   l   : sp;
  end;

  var first, m : sp;
  k,i:Integer;
  st1,st2 : string;

begin
 New(m);
 first := m;
 k:=1;
 for i:=1 to 10 do
 begin
   Readln(st2);
   if lenGth(St2)>0 then
   begin
    getmem(m^.st, lenGth(St2));
    StrPCopy(m^.st, st2);
    New(m^.l);
    m := m^.l;
   end;
 end;
  m:=first;

  while m<>nil do
  begin
    st1:=m^.st;
    m:=m^.l;
    if M<>nil then
    begin
     st2:=m^.st;
     if (LenGth(st1)<>0) and (LenGth(st2)<>0) then
     inc(k, byte(st2[1]=st1[1]));
    end;
  end;
  Writeln(k);
  Sleep(10000);
end.

Я так и не понял что он считает. Вариант не вылетает.

[phasha]

ДА!!!! именно к этому я и стремился!=))все выводит точно что нужно)теперь буду искать ошибки у себя))))