[Turbo Pascal] Błąd w pętli wyświetlania tablicy jednowymiarowej

program tab1;
uses crt;
var tab:ARRAY[1..5] of integer;
i:integer;
begin;
clrscr;
for i:=1 to 5 do begin
writeln('Podaj elementy');
readln(tab[i]);
end;
begin
for i:=1 to 5 do begin
writeln('wato˜† tablicy=',tab[i]);
end;
begin;
readkey;
end.

program tab1;
uses crt;
var tab:ARRAY[1..5] of integer;
i:integer;
begin
 clrscr;
 for i:=1 to 5 do begin
  writeln('Podaj elementy');
  readln(tab[i]);
 end;
 for i:=1 to 5 do begin
  writeln('watość tablicy=',tab[i]);
 end;
 readkey;
end.