Turbo Pascal- co jest złego w tym kodzie?

Filevandrel [ czlowiek o trudnym nicku ]

Turbo Pascal- co jest złego w tym kodzie?

Problem jest następujący. Mam napisać program ktory bedzie liczył n sumns kolumnowych kwadratu magicznego. Kwadrat ma tyle kolumn i wierszy liczb ile wynosi stała n. Napisałem program wsyzstko sie ładnie skompilowało, ale program nie chce dzialac jak należy. MOżecie mi powiedzieć co jest złego w tym kodzie?

program magiczny;
uses crt;
const n=3;
VAR x:array[1..n,1..n] of integer;tab:array[1..n*n of integer;

Procedure kwadrat;
var,i,j,e:integer;
begin
e:=1;
for j:= to n do
for i:=1 to n do
begin
x[i,j]:=e;
inc(e);
end;
end;



Procedure losuj;
var e,i,j,q,w,a,k,los:integer;
begin
a:=1;
for j:=1 to n do
begin
e:=1;
for q:=1 to n do
begin
for w:=1 to n do
begin
x[w,q]:=e
inc(e);
end;
end;
for i:=1 to n do
begin
repeat
los:=x[random(n)+1,i];
until los<>0;
tab[a]:=los;
for k:=1 to n do
begin
x[los,k]:=0;
end;
inc(a);
end;
end;
end;


procedure wypisz;
var i,j:integer;
begin
for j:=1 to n do;
begin
for i:=1 to n do write (x[i,j]:3);
writeln;
end;
writeln;
for j:=1 to (n*n) do
begin
write (tab[j]:3);
end;
end;

BEGIN
randomize;
ClrScr;
kwadrat;
losuj;
kwadrat;
wypisz;
Readkey;
END.

Gwoli jasnoci- na ekranie nie pojawia sie nic.... Bede dozgonnie wdizeczny za kazda pomoc.

15.03.2006

00:14

[2]

Tomus665 [ Legend ]

Jak na moje to nie masz tutaj podanego polecenia ( wczytaj ) więc nie masz co się dziwić, że program Ci nie pokazuje się na ekranie.