Pascal.abc воспользоваться repeate - until. сделать дек трекер: создашь колоду s: array[1..100] of string; каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива. заканчивается цикл, когда пользователь вводит слово 'end'. в конце через цикл for i: = 1 to _tvoi_schetchick_ вывести все карты.

var s: array[1..100] of string;

   i, _tvoi_schetchick_: integer;

   a: string;

begin

   _tvoi_schetchick_:= 0;

   readln(a);

   if a <> 'END' then

   repeat

       if a <> 'END' then begin

           inc(_tvoi_schetchick_);

           s[_tvoi_schetchick_]:= a;

           readln(a);

       end;

   until a = 'END';

   for i:= 1 to _tvoi_schetchick_ do writeln(s[i]);

end.