Написать программу, которая составляет логины для учеников (логином является фамилия ученика, если фамилии повторяются, то программа должна выводить логины (в формате <фамилия>+число(характеризующее какая по счету эта фамилия в списке)))- Pascal(Паскаль)

uses crt;

var
  a: array[1..100] of string;
  i, k, c, n: integer;
  s: string;

begin
  clrscr;
  readln(n);
  for i := 1 to n do
    a[i] := '';
  WriteLn;
  for i := 1 to n do
  begin
    Write('Введите ',i,'-ю фамилию: ');
    ReadLn(s);
    if Pos(' ',s)>1
       then a[i] := Copy(s,1,Pos(' ',s)-1)
       else a[i] := s;
  end;
  WriteLn('results:');
  for i := 1 to n do
  begin
    Write(a[i]);
    c := 0;
    for k := 1 to i do begin
      if a[i] = a[k] then
           inc(c);
    end;
    if c > 1 then write(c);
    writeln;
  end;
  readkey;
end.