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.