Vypsani cisel v pascalu

Až po readln(x) ok.
Potom si otestuj či je x väčšie ako nula (0).
Ak áno, pokračuj cyklom for napr.
for y = x downto 0 writeln(y)

a nebo jak jsi začal, tak pokračuj:
while x>0 do
begin
writeln(x);
x=x-1;
end;

x=x-1; // Dec(x) bude víc in

nojo, ale copak ho začátečník může znát?
Basic už se u mě projevuje, mělo být x:=x-1;

program cisla1;

uses Crt;
var cisloStr       : string;
    cisloInt, step : integer;
begin
  ClrScr;

  Write('Napiste cislo: ');
  Read(cisloStr);

  Val(cisloStr, cisloInt);

  WriteLn;

  for step := cisloInt downto 1 do begin
      WriteLn(step);
  end;

  ReadLn;
  ReadLn;
end.

Tento pokus o program si aj skúšal a funguje?
Len námatkou:
Val(S:string;var V:číslo;var Code:integer); Ten tretí parameter tam nemusí byť? Kompilátor to "rozdýcha" ?
Read(cisloStr); Skús zadať dvojciferné číslo...

Testováno v Lazarusu a vše bez problémů.

třetí parametr procedury val je nepovinný, ale když ho nepoužije a neošetří tak chybové zadání, to už rovnou mohl číst readln...
cisloStr je typ string, tzn až 255 znaků.

V Pascalu už jsem nedělal hrozně dlouho, pokud jsou tam nějaké blbosti tak se omlouvám, ale i tak ten program resp. kód splní to co má (pokud neberu ohled na ošetření vstupu ...).