Witam
Potrzebuje napisać program w delphi w trybie konsolowym który zastępował by elementy tablicy od 1 do n (liczby całkowite, n podawane z klawiatury) średnią arytmetyczna sąsiednich wyrazów. Lewym sąsiadem pierwszego elementu jest ostatni element tablicy a prawym ostatniego jest pierwszy. Oto kod który udało mi sie napisać:
program tablica;
{$APPTYPE CONSOLE}
var tablica: array of array of integer;
n,i,j:integer;
begin
repeat
writeln('prosze podac liczbe n dla wymiaru tablicy');
readln(n);
until (n>=3);
setlength(tablica,n,n);
begin
tablica[1,1]:=1;
end;
begin
for i:=2 to n-1 do
for j:=2 to n-1 do
tablica[i,j]:= (tablica[i-1,j]+tablica[i+1,j]) div 2
end;
begin
for i:=1 to 1 do
for j:=1 to 1 do
tablica[1,1]:=(tablica[n,n]+tablica[2,1])div 2
end;
begin
for i:=n to n do
for j:=n to n do
tablica[n,n]:= (tablica[1,1]+tablica[n-1,n-1])div 2
end;
begin
write(tablica[i,j]);
writeln
end;
readln
end.
Program nie wyświetla tablicy oraz na koniec jego działania wyskakuje błąd o treści: Runtime error 203 at 00403C7C Doczytałem że błąd dotyczy braku pamięci. Jak można go poprawić?