Обработать список (составить логины по фамилии) (Нужно чужое решение)

[VKorablev]

сколько существует программистов, столько и мнений, столкнулся с задачей (сначала на ввод подается число N (кол-во учеников) потом список учеников, в формате(<фамилия> <имя>), необходима програма, которая составляет логины для учеников (логином является фамилия ученика, если фамилии повторяются, то программа должна выводить логины (в формате <фамилия>+число(характерезующее какая по счету эта фамилия в списке))), написал программу (см архив), прога работает, но перед первым логином ставит пробел (по причине того что переменная ch по дефолту равна ' '), тупо ради интереса, попробуйте решить задачу без этого бага)))

[Serge_Bliznykov]

формально ответ на Ваш вопрос такой:

  for i := 1 to n do
  begin
    read(ch);
    while (ch<>' ') and
       (ch<>#10) and (ch<>#13) do begin
      a[i] := a[i] + ch;
      read(ch);
    end;
  end;

Но, АБСОЛЮТНО непонятно -
1) почему вводится до первого пробела?
2) для чего read(s) ?
3) Вы в курсе, что в фамилии попадают символы #10#13 - это нажатия Enter ?
4) почему банально не читать строки через Readln(s) ?!
5) вывод дублирует одни и те же фамилии...
6) кто Вас учил так жутко форматировать код?!

ДОБАВЛЕНО
сколько людей, столько и вариантов решения, говорите?...

Ладно. вот как я вижу решение данной задачи:

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.

[VKorablev]

балгодарствую, просто замкнуло меня на этой задаче ^_^ пардон за тупость местами))
отвечу на ваши вопросы :
1)так как по условию фамилия и имя разделены пробелом
2)s считвается (это имя) фамилия считана, а имя нам не нужно, но я уже понял тут касяк свой
3)не попадают, у меня идет считование переменно типа чар и она присоеденяется к строке до пробела, пробел не присоеденен, далбше считывается имя
4)можно и считать тупо через чтение S, но нам нужна тока фамилия, потом бы серовно пришлось отсеивать имя
5)хм...у меня выводилось все как надо
6)нискажу ;P