Wie kann ich eine Konsolenanwendung leeren?

[YXCVBNM1]

hallo,

ich bin ein absoluter Anfänger in Delphi und ich will eine Konsolenanwendung programmieren bei der sich die konsole leert wenn eine Bedingung erfüllt ist. Ich habe im Internet bereits lange nach einer Lösung gesucht, aber alle vorgeschlagenen Lösungen haben nicht funktioniert. Warscheinlich habe ich wegen meinem noch geringen wissen einige Programmzeilen vergessen. Da ich aber trotzdem gerne wissen würde wie das geht, habe ich unten mal ein paar extrem primitive programmezeilen eingetippt. Könnte mir die vielleicht jemand so umschreiben, dass sie funktionieren?

uses
SysUtils;

VAR
a:integer;

begin
readln(a);
writeln(a);
If a=0 then //hier sollte dann der Inhalt der Konsole geleert werden
readln;
end;

Danke schonmal im Voraus!