program raf105;

var

 friends: array of string;

 i: integer;

begin

 writeln('Вводие имена своих друзей по очереди');

 writeln('Чтобы закончить введите 1');

 repeat

   inc(i);

   setlength(friends,i);

   readln(friends[i-1]);

 until friends[i-1] = '1';

 writeln('Список друзей начиная со второго:');

 for i:=2 to i-1 do

   writeln(friends[i-1]);

end.

PascalABC