Pisze program, ktory zamienia dwa stringi na dwie tablice jednocyfrowych intow o dlugosci kazdego ze stringow. Pozniej do dalszej czesci programu potrzebuje stworzyc tablice dwuwymiarowa o okreslonych indeksach i przypisac kazdemu jej elementowi wartość 0.
Kompilator wywala mi błąd przy próbie zapełnienia tablicy dwuwymiarowej zerami, wydaje mi sie ze moze byc przekroczenie zakresow tablic,a le nie wpadlem na to dlaczego, ponizej kod
program Recordapp;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
liczba1, liczba2:string;
DlugoscLiczba1,DlugoscLiczba2:integer;
TablicaLiczba1, TablicaLiczba2, Wynik : array of Integer;
Obliczenia :array of array of Integer;
WierszeTablicyWyniku,i,j : Integer;
begin
Writeln('Podaj liczbe 1');
Readln(liczba1);
Writeln('Podaj liczbe 2');
Readln (liczba2);
DlugoscLiczba1:=length(liczba1);
DlugoscLiczba2:=length(liczba2);
SetLength(TablicaLiczba1, DlugoscLiczba1);
SetLength(TablicaLiczba2, DlugoscLiczba2);
SetLength(Wynik, DlugoscLiczba1-DlugoscLiczba2+1);
WierszeTablicyWyniku:= DlugoscLiczba1*2+3;
SetLength(Obliczenia,WierszeTablicyWyniku , DlugoscLiczba1);
for i:=1 to DlugoscLiczba1 do
TablicaLiczba1[i]:=StrToInt(liczba1[i]);
for i:=1 to DlugoscLiczba2 do
Write(TablicaLiczba1[i]);
for i:=1 to DlugoscLiczba2 do
TablicaLiczba2[i]:=StrToInt(Liczba2[i]);
writeln(' ');
for i:=1 to DlugoscLiczba2 do
Write(TablicaLiczba2[i]);
for i:= 1 to WierszeTablicyWyniku do
begin
for j:= 1 to DlugoscLiczba1 do //tu kompilator sie zatrzymuje
Obliczenia[i,j]:=0;
end;
readln;