записать программу с Pascal на Delphi

[aiktz]

Приветствую Вас! Дельфи стали проходить буквально пару дней назад. Еще не особо в этой программе разбираюсь. Скажите, как переписать программу, сделанную на Pascal в Дельфи?
Задача решена на Паскале, а как теперь эту же самую задачку в Дельфи написать??

program jkjkj;
uses crt;
var
j,i:integer;
A:array[1..10,1..10] of integer;
begin
clrscr;
for i:=1 to 10 do
begin
for j:=1 to 10 do
A[i,j]:=0;

for i:=1 to 10 do
begin
for j:=1 to 10 do
write(A[i,j] ,' ');
writeln;
end;
begin
A[i]:=A[1];
A[i,j]:=i-j;
end;
writeln('массив равен',A[i,j]);
readln(i);
end;end.

[Alex Cones]

Все, что потребуется - убрать строки

program jkjkj;
clrscr;

Дальше запускаете дельфу, создаете новый проект "Консольное приложение" и копируете свой код.

[aiktz]

почему - то не выходит...запускается exe программа,а в ней в столбик все 0....

program Project1;
var
j,i:integer;
A:array[1..10,1..10] of integer;
{$APPTYPE CONSOLE}
{$R *.RES}
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
A[i,j]:=0;


write(A[i,j] ,' ');
writeln;
end;
begin
A[i]:=A[1];
A[i,j]:=i-j;
end;
writeln('массив равен',A[i,j]);
readln(i);

WriteLn ('Hello, world!');
end.

может, я что-то сделала не так??

[profi]

почему - то не выходит...запускается exe программа,а в ней в столбик все 0....

Работает верно

for i:=1 to 10 do
begin
for j:=1 to 10 do
A[i,j]:=0;


write(A[i,j] ,' ');
writeln;
end;

Нужно так:

for i:=1 to 10 do
begin
for j:=1 to 10 do
A[i,j]:=random(20);


write(A[i,j] ,' ');
writeln;
end;