Очистка экрана и остановка программы до нажатия любой клавиши - Turbo Pascal

Формулировка задачи:

Помогите сделать так что бы в этой программе происходила очистка экрана и отстановка программы до нажатия любой клавиши(ClrScr and ReadKey не подходят)

unit slogenie;
interface
var
p,x,y:integer;
implementation
begin
writeln('x=');
read(x);
writeln('y=');
read(y);
p:=x*y;
writeln('p=',p);
end.

Решение задачи: «Очистка экрана и остановка программы до нажатия любой клавиши»

Листинг программы

unit slogenie;
interface
var x,y,p:integer;
procedure vvod;
function summa:integer;
implementation
procedure vvod;
begin
write('x=');
readln(x);
write('y=');
readln(y);
end;
function Summa:integer;
begin
p:=x+y;
Summa:=p;
end;
end.

Объяснение кода листинга программы

unit slogenie; interface var x, y, p: integer; procedure vvod; function summa: integer; implementation procedure vvod; begin write('x='); readln(x); write('y='); readln(y); end; function Summa: integer; begin p := x + y; Summa := p; end; end.