Напишите программку, которая запрашивает у пользователя имена его друзей до тех

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