Паскаль, Запись данных из таблицы в двумерный массив.
Помогите записать данные из таблицы в двумерный массив. 2 день маюсь ничего не получается.. .
program tablica;
uses crt;
const a=2;b=4;
type c=array[1..16,1..16] of real;
var
F1,F2,x,dx,ctg:real;
i,n,f,j:integer;
begin
clrscr;
textbackground(10);
clrscr;
writeln('Введите число точек (16)');
readln(n);
dx:=abs(b-a)/(n-1);
x:=a;
textcolor(7);
writeln('_______________________________');
writeln('| Шаг|F1|F2|');
writeln('|---|--------|--------|--------|');
for f:=1 to n do
begin
F1:=(exp(x*LN(2)))*(LN(x)/LN(10))-(exp(x*LN(3)))*(LN(x)/LN(10));
ctg:=cos(x)/sin(x);
F2:=ctg;
for i:=1 to i do
for j:=1 to i do
begin
end;
writeln('|',i:3,'|',x:8:3,'|',F1:8:4,'|',F2:8:4,'|');
x:=x+dx;
end;
writeln('|______________________________|');
readln();
end.