Program znaky

Program nejdříve zeptá, kolik znaků a pak jaké znaky a pak tyto znaky v počtu, který byl zadán namaluje vedle sebe!
úkol: upravte tento program tak, aby testoval, zda nebylo do počtu znaků, které se mají napsat nebylo zadáno číslo menší než 5, pokud by tomu tak bylo, tak vyzve na nové zadání
graficky tento program vyčistěte (stejné řádkové rozestupy mezi jednotlivými řešeními)

program znaky;
uses crt;
var klavesa, pocet, i, a: integer;
    znak: char;


begin
  writeln ('Program ti vypise tolik znaku, kolik si reknes:)');
  repeat
        writeln ('jakym znakem to bude?');
        readln (znak);
        writeln ('kolik znaku za sebou to bude?');
        readln (pocet);
        clrscr;
        writeln ('nejdrive pomoci FOR');
        writeln ('');
        for i:=1 to pocet do
            write (znak);
        writeln ('');
        write ('a ted pomoci REPEAT');
        writeln ('');
        a:=1;
        repeat
            write (znak);
            a:=a+1;
        until a>pocet;
        writeln ('');
        writeln('a ted pomoci WHILE');
        writeln ('');
        a:=0;
        while a
            begin
                        write (znak);
                        a:=a+1;
            end;
    writeln ('');
    writeln ('Pokracovat 1/0');
    readln (klavesa);
  until klavesa<>1;
end.