нужна помощ в переводе программы из Delphi в Turbo Pascal

[Biocid]

program simplex;
	
uses SysUtils;
const mm = 100; nn = 100;

var A : array[1..mm, 1..nn] of double;
    fun : array[1..nn] of integer;	    
    m, n : integer;			           

    basis : array[1..nn] of integer;	
    i, j : integer;
    x : array[1..nn] of double;        

procedure solve;
var i, j, i0, j0 : integer;
    tmp : double;
    opt : boolean;
begin
    opt := false;
    repeat
        j0 := 1; i0 := 0;
        while (j0 < m+n+1) and (A[m+1, j0] >= 0) do inc(j0);
        if A[m+1, j0] >= 0 then opt := true;

        if not opt then begin
            tmp := 10000;
            for i := 1 to m do
                if (A[i, j0] > 0) and (A[i, m+n+1] / A[i, j0] < tmp) then
                begin
                    tmp := A[i, m+n+1] / A[i, j0]; i0 := i
                end;
           
            basis[i0] := j0;                        

            for i := 1 to m + 1 do
                    if i <> i0 then
                    begin
                            tmp := A[i, j0];
                            for j := 1 to m + n + 1 do
                                   A[i,j] := A[i,j] - A[i0,j]*tmp/A[i0,j0];
                    end;
            tmp := A[i0, j0];
            for j := 1 to m + n + 1 do
                    A[i0, j] := A[i0, j] / tmp;
        end;
    until opt;
end;

begin
    assign(input, 'input.txt'); reset(input);

    read(n); read(m);

    for i := 1 to n do read(fun[i]);     

    for i := 1 to m do
        for j := 1 to n do
            read(A[i, j]);

    for i := 1 to m do
        read(A[i, n+m+1]);               
    for i := 1 to m do                  
        A[i, n+i] := 1;
    fillchar(A[m+1], sizeof(A[m+1]), 0);


    for i := 1 to m do
        basis[i] := n + i;
    for j := 1 to n do
        A[m+1,j] := -fun[j];        


    solve;                             

    for i := 1 to m do
        if basis[i] <= n then
             x[basis[i]] := A[i, m+n+1];

    for i := 1 to n do writeLn('x[', i, '] = ', x[i]:0:3);
    writeLn('min f(x) = ', A[m+1, m+n+1]:0:3); 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

SysUtils заменить на CRT.
Больше не вижу никаких препятствий.

[Biocid]

[QUOTE=BDA;1147119]SysUtils заменить на CRT.
это всё делал но пишет что
Structure too large
var A : array[1..mm, 1..nn] of double;

[Вадим Мошев]

Сделайте, например, так:

var A : array[1..10, 1..10] of single;

[Serge_Bliznykov]

ну, точнее,

const mm = 80; nn = 80;

только учтите, что n и m (у вас они читаются из файла 'input.txt') не могут быть больше, чем значения nn и mm