Как очистить экран в консольном Delphi.

Дана программка для консольного Delphi. Дополните ее, пожалуйста, чтобы перед каждым повтором процедуры экран был очищен.

program Project2;
{$APPTYPE CONSOLE}
procedure sum(var a,b,c:integer);
begin
writeln('Input a');
readln(a);
writeln('Input b');
readln(b);
c:=a+b;
writeln('Resultat');
writeln(c);
readln;
end;
var a,b,c: integer;
label m1;
begin m1:
sum(a,b,c);
goto m1;
end.