Помогите пожалуйса в делфи перевести

[kanav2]

uses crt;
var arr:array[1..50,1..50] of real;
b:array[1..50] of integer;
i,j,n:integer;
a:boolean;
begin
write('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=(random(20)-10) / 1.13;
write(arr[i,j]:2:2,' ');
end;
writeln();
end;
a:=false;
for i:=1 to n do
begin
for j:=1 to n do
if arr[i,j]<0 then a:=true;
if a=true then b[i]:=1
else b[i]:=0;
a:=false;
end;
for i:=1 to n do
write(b[i],' ');
end.
Помогите пожалуйса в делфи перевести,незнаю что куда там вставлять

[type_Oleg]

Создавайте консольное приложение , и вставляйте все ( кроме uses crt; ) вот туда

program Project1;

{$APPTYPE CONSOLE}
// дальше - весь ваш код

Но если вам надо оконное приложение, то придется вместо ReadLn, Write использовать другое.

[digitalis]

Можно и без консольного: на форму кинуть Memo и три кнопки, по одной сгенерировать массив, по другой - сделать с ним х.з.ч, по третьей - вывести в Memo. Само собой, никаких Write, Writeln - есть простая хорошая фраза Memo1.Lines.Add (...
А писа'ть

a:=false;
......
if a=true ....

- это дурной тон, зачем лишние буквы, если можно

if a....

[northener]

Сообщение от kanav2

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

А оно вам нужно? Я имею в виду программирование.