Case Of и Readkey Опции

[DZZRtt]

Вот часть кода, все работает (спасибо МИСС ГРАФИТИ за подсказку).
но каждый раз при выводе результата на экран, вместе с матрицей
выводится и это

writeln ('чтобы выполнить деийствие нажмите соотв клавишу)
writeln ('1- найти максимальный элемент');
writeln ('2- найти минимальный элемент');
writeln ('нажмите ESC для выхода');
Подскажите как сделать так, чтобы текст выводился только один раз
не используя процедуру. Пробовал ставить clrscr в разных частях кода,
но добился лишь того, что исчезает все вместе с матрицей.

write (matrix[i,j]);
end;
begin
repeat

writeln ('чтобы выполнить деийствие нажмите соотв клавишу)
writeln ('1- найти максимальный элемент');
writeln ('2- найти минимальный элемент');
writeln ('нажмите ESC для выхода');

k:=readkey;
case k of

'1': writeln ( максимальный элемент',max);
'2': writeln (минимальный элемент'. min);
 end;
until k=#27;
end;
end.

[Lapp]

Например, можно так:

flag:=true;
repeat
...........
  if flag then begin
    writeln ('чтобы выполнить деийствие нажмите соотв клавишу')
    writeln ('1- найти максимальный элемент');
    writeln ('2- найти минимальный элемент');
    writeln ('нажмите ESC для выхода');
  end;
  flag:=false;
  k:=readkey;
  case k of
    '1': writeln ('максимальный элемент',max);
    '2': writeln ('минимальный элемент',min);
  end;
until k=#27;