Proszę o pomoc z dwoma zadaniami z Turbo Pascala!!!

Ze wzgledu na stan zaawansowania programu przypuszczam, ze poradzisz sobie z tym co napisze. Mam nadzieje, ze to pomoze bo nie mam nawet czasu wrzucic do kompilatora tego.

Z.1.

uses crt;

type a=array[1..10, 1..10] of byte;

var tab:a;
n,i,j:byte;
begin
clrscr;
writeln('podaj n');
readln(n);

for i:=1 to n do begin
for j:=1 to n do begin
tab[i,j]:=i*j;
write (tab[i,j],' ');
end;
writeln;
end;
end;

Z. 2.

type a=array[1..21,1..3] of byte;

var tab:a;
x:real;
i:byte;
begin
clrscr;
x:=1;i:=1;
repeat
tab[i,1]:=exp(x);
tab[i,2]:=ln(x);
tab[i,3]:=sqrt(x);

inc(x,0.05);
inc(i);
until x=2

for i:=1 to 21 do write (i,' ',x,' ', tab[i,1],' ', tab[i,2],' ',tab[i,3]);

readln;
end;