Помогите составить программу в PASCAL!

Всем привет, составил программу для вычисления площадей фигур в Pascal. Всё работает нормально, но есть одна загвоздка, не могу добавить команду для очистки экрана.
Вот программа:
Program Pifagor;
Var S: char;
Function menu: integer;
Var St: integer;
Begin
writeln ('Выберите фигуру площадь которой хотите найти');
writeln ('---------------------------');
writeln ('1 Прямоугольник');
writeln ('---------------------------');
writeln ('2 Равнобедренный треугольник');
writeln ('---------------------------');
writeln ('3 Квадрат');
writeln ('---------------------------');
writeln ('4 Круг');
writeln ('---------------------------');
Readln(St);
menu:=St;
End;
Procedure Spryamogolnik;
var a,b,s:real;
begin
write('Введите высоту: ');
readln(a);
write('Введите ширину: ');
readln(b);
s:=a*b;
writeln('Площадь равна: ',s:5:2);
end;
Procedure Srvnobedrennogotreugolnika;
var a,h,s:real;
begin
cls;
write('Введите основание и высоту труеглольника ');
readln(a,h);
S:=a/2*h;
write('площадь треугольника равна ',S);
end;
Procedure Skvadrat;
var a, s: real;
begin
write('Введите сторону квадрата: ');
readln(a);
s:=a*a;
writeln('Площадь квадрата: ',s:5:2);
end;
Procedure Skruga;
var
r: real;
S: real;

begin
write('Введите радиус круга: ');
readln(r);
S:=3.1415*sqr(r);
writeln('Площадь круга равна ',S);
end;
begin
repeat
case menu of
1:Spryamogolnik;
2:Srvnobedrennogotreugolnika;
3:Skvadrat;
4:Skruga;
end;
Writeln('Продолжить работы? Y/n');
Readln(S);
uNTIL s='n';
Writeln('Завершение работы');
end.
Короче говоря, нужно сделать так, что-бы после того, как выбираешь фигуру S которой хочешь найти, экран очищался. В общем у более опытных программистов прошу помощи