Wie wärs, wenn du die Procedur ausgeben folgendermaßen umschreibst?
Delphi-Quellcode:
procedure ausgeben;
var k,l:integer;
begin
for k:=1 to n do
begin
for l:=1 to n do write(matrix[l,k]:3);
writeln;
end;
end;
Denn x und y sind zwar global deklariert, werden aber in dieser Procedur nicht verändert. Habs nich probiert, das sollte es aber wohl eigentlich sein!
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;