Zdravíčko,

Mám zde problém ve Free Pascalu. Potřebuji nahrávat cyklem čísla a po zmáčknutí třeba k, se cyklus ukončí a vypíše nejmenší číslo.

program nejmensi_cislo;

uses CRT;

var zadane, nejmensi: integer;

begin
  nejmensi:=2;
  clrscr;
  writeln('Zadejte cislo. Pro ukonceni a zobrazeni stisknete k :');
  readln(zadane);
  repeat
    begin
      writeln('Zadej cislo: ');
      readln(zadane);
      if zadane < nejmensi then nejmensi:=zadane;
    end;
  until zadane = 'k';
  clrscr;
  writeln('Nejmensi cislo je ' ,nejmensi, '.');
  readln;
end.

Tento kód mě nefunguje píše mě to chybu datového chybu. Kdysi jsem to dělal ale už si napamatuji jak se to dělá. Díky