Program z tablicami i błąd, niby wychodzi z tablicy ?

[smatysik]

Po wprowadzeniu danych w programie wyskakuje błąd: exitcode = 201, w inernecie sprawdzałem że oznacza wyjście poza tablicę, ale nie wiem jakim cudem, jakby ktoś widział błąd proszę o pomoc, zawsze mam problemy używając tablic w pascalu

 

Kod programu:

 

program z_tablicami2;

var

tablica1: array[1..100000000] of Longint;

tablica2: array[1..100000000] of Longint;

N : Longint;

K : Longint;

i : Longint;

i2 : Longint;

nr_tab : Longint;

l : Longint;

w : Longint;

poc : Longint;

suma : Longint;

begin

Read (N, K);

for i := 1 to N do

begin

Read (tablica1);

end;

for l := 1 to N do

begin

Read (tablica2[l]);

end;

 

while K > 0 do

begin

w := 1;

nr_tab := 1;

for i2 := 1 to N do

begin

if (tablica1[nr_tab] > w) then w := tablica1[nr_tab];

if (tablica1[nr_tab] > w) then poc := nr_tab;

nr_tab := nr_tab + 1;

end;

suma := suma + w;

tablica1[poc] := tablica2[poc];

K := K - 1;

end;

 

WriteLn (suma);

ReadLn;

ReadLn;

end.

[olesio]

Sformatuj kod pożądnie (są do tego narzędzie jeśli nie umiesz sam). I wstaw go w odpowiednie znaczniki. To może ktoś spojrzy.

[smatysik]

program z_tablicami2;
var
tablica1: array[1..100000000] of Longint;
tablica2: array[1..100000000] of Longint;
N : Longint;
K : Longint;
i : Longint;
i2 : Longint;
nr_tab : Longint;
l : Longint;
w : Longint;
poc : Longint;
suma : Longint;
begin
Read (N, K);
for i := 1 to N do
begin
Read (tablica1[i]);
end;
for l := 1 to N do
begin
Read (tablica2[l]);
end;

while K > 0 do
begin
w := 1;
nr_tab := 1;
for i2 := 1 to N do
begin
if (tablica1[nr_tab] > w) then w := tablica1[nr_tab];
if (tablica1[nr_tab] > w) then poc := nr_tab;
nr_tab := nr_tab + 1;
end;
suma := suma + w;
tablica1[poc] := tablica2[poc];
K := K - 1;
end;

WriteLn (suma);
ReadLn;
ReadLn;
end.

[olesio]

Kod w znacznikach, ale nadal niesformatowany. Jeżeli to parser u1 rozwalił formatowanie, w co wątpie żeby aż tak, to wklej na zewnętrzny pastebin i podaj tutaj link.