НУЖНО переделать код из Pascal в Delphi

[Len4i]{]

var a:array [1..100,1..100] of real;
n,i,j,k,r:integer;
flag : boolean;
b:array [1..100] of real;
begin write('введите число');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin write('a[',i,',',j,']=');
readln(a[i,j]);
end;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
write('введите k=');
readln(k);

r := 0;
for i := 1 to n do
begin
if (k <= 1) then
flag := true // одно или ноль чисел всегда идут "подряд"
else
flag := abs(A[i,1] - A[i,2]) = 1; // смотрим разность, соседние-ли числа
for j := 1 to k do
if (A[i,j] <= 0) then // проверяем все счисла на положительность
begin
flag := false;
break;
end;
for j := 2 to k - 1 do
if (A[i,j] - A[i,j+1] <> A[i,1] - A[i, j+1]) then // проверяем, что есть арифметическая прогрессия с шагом равным разности первых двух чисел
begin
flag := false;
break;
end;
if flag then // если все условия выполнены, то
begin
inc(r);
b[r] := 0;
for j := 1 to n do // считаем сумму в строке
b[r] := b[r] + A[i,j];
write(b[r],',');
end;
end;
end.

[fbus]

так и вставляй

[Len4i]{]

ну она у меня не работает я ладу ей не могу дать

[Len4i]{]

помогите кто нибудь!!!!! очень нужно сегодня сделать!!

[Chudo4258]

Сообщение от Len4i]{

помогите кто нибудь!!!!! очень нужно сегодня сделать!!

вот держи. (Ctrl+C и Ctrl+V и все, особых знаний тут не надо)
111.rar
все что написано русскими буквами (write('рус. буквы')) перепиши английскими.

[Len4i]{]

либо я тебя не понимаю, либо ты меня. это код программы, написанный в Паскале, а мне нужно, чтоб он был написан в Делфи.
в Делфи программа с таким кодом запускается, но не работает

[Roof]

2 Len4i]{ - тебе и переделали в Делфи. Скачай архив. Разархивируй. Открой Project2.dpr в делфи и запускай. Будет тебе консольное приложение в делфи. Возможно, что ты имеешь ввиду, что тебе нужно приложение не консольное, а с формой и сеткой типа StringGrid.

[Len4i]{]

ё, моё!!! извини, дурака сваляла. голова уже не работает. я архив даже не увидела :-D