Как сделать вывод текста по нажатию клавиши Enter

var k:byte;
begin
k:=0;
repeat
write('Нажмите Enter');
readln;
inc(k);
writeln(k);
until k=4;
end.

program Primer_1;
var f:text;
    x: string;
begin
  assign(F,'primer1.txt'); {связываем с внешним файлом}
  reset(F);                   {открываем для чтения}
  while not eof(f) do      {пока не конец файла}
        begin
          readln(f,x);         {считываем очередное число}
          write(x,' ');       {выводим его на экран}
        end;
     close(f);
end.

readln(f,x);         {считываем очередное число}
write('Нажмите Enter');
readln;
write(x,' ');       {выводим его на экран}

// program Primer_1; -- не нужно!
// var f:text; -- не нужно
//    x: string; -- не нужно
begin
//  assign(F,'primer1.txt'); {связываем с внешним файлом} -- эту и следующую строки заменяем на см.ниже
//  reset(F);                   {открываем для чтения}
  var F : Text; // объявляем переменную текстового файла
  Reset(F, 'primer1.txt'); // связываем её с файлом и открываем на чтение
  while not EOF(f) do      {пока не конец файла}
//        begin -- меняем всё это на 1 строку
//          readln(f,x);         {считываем очередное число}
//          write(x,' ');       {выводим его на экран}
//        end;
      Print(ReadLnString(F)); // Считать строку и вывести её
    Close(F);
end.

begin
  var F : Text;
  Reset(F, 'primer1.txt');
  while not EOF(f) do
    Print(ReadLnString(F));
  Close(F);
end.

begin
  foreach var x in ReadLines('primer1.txt') do
    Print(x);
end.

begin
  foreach var x in ReadLines('primer1.txt') do
    begin
      WriteLn(x);
      var s := ReadLnString('Нажмите Enter...');
    end;
end.