Pascal program - błędy

Question

Napisz program tłumaczący zapis wygenerowanej liczby zakres 4000-9000 na zapis słowny.

program cosik;
uses crt;
var liczba:integer;
function slowa(liczba:integer):string;
const
     jednosci:array[0..9] of string =
     ('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
     dziesiatki:array[0..9] of string =
     ('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
     setki:array[0..9] of string =
     ('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
     tysiace:array[0..4] of string =
     ('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
var J,D,S,T:string;
begin
J:=liczba mod 10;
D:=(liczba div 10) mod 10;
S:=(liczba div 100) mod 100;
T:=(liczba div 1000) mod 1000;
writeln(jednosci[J]+dziesiatki[D]+setki[S]+tysiace[T]);
end;

begin
clrscr;
liczba:=random(5001)+4000;
readln(liczba);
writeln(slowa(liczba));
writeln('Liczba = ', slowa(liczba));
readkey;

end.

 

Answer 1

tysiace:array[0..4] <- 9 a nie 4

var J,D,S,T:string; -<  integer a nie string

 

writeln(jednosci[J]+dziesiatki[D]+setki[S]+tysiace[T]) - zacznij od tysięcy czyli odwrotnie i oddzielaj napisy np. spacją