Помогите переделать прогу из Паскаля в Делфи!

[Toxass]

напиши мне номер своей аси, а то мне койче не понятно

[Terran]

У меня нет аси.

[Toxass]

а что в нем нада написать?

[Toxass]

я имею ввиду в Эдите там де онкейдаун в пустом поле?

[Terran]

Вот исходничёк:Вложение 7268
В поле Edit пишите цифры.

[Toxass]

я конечно знаю, что наглый но не мог бы ты мне перевести еще две проги также вот первая

uses
  SysUtils;

Const n =10;
var C:array[1..n] of integer;
F:array[1..n] of integer;
i,j,summa:integer;
srednee:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  summa:=0;
for i:=1 to n do
begin
write('Vvedite ',i,' element');
readln(C[i]);
summa:=summa+C[i];
end;
srednee:=(summa/n); 
j:=1;
for i:=1 to n do
if C[i]>srednee then
begin
F[j]:=C[i];
j:=j+1;
end;
      for i:=1 to j-1 do
            write(F[i],' ');
readln;
end.

и последняя

uses
  SysUtils;

var i,j,temp,k:integer;
    a:array[1..10,1..10] of integer;
    b,t:array[1..10] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  begin
   a[i,j]:=random(100)-random(100);
   write(a[i,j]:5);
  end;
 writeln;
 end;
for j:=1 to 10 do
 begin
  b[j]:=0;
   for i:=1 to  10 do
     if a[i,j]<0 then b[j]:=b[j]+a[i,j];
 end;

for i:=2 to 10 do
    for j:=10 downto i do
      if b[j-1]<b[j] then
        begin
          Temp:=b[j-1];
          b[j-1]:=b[j];
          b[j]:=temp;
          temp:=j;
          for k:=1 to 10 do
           t[k]:=a[k,temp];
          for k:=1 to 10 do
           a[k,temp]:=a[k,temp-1];
          for k:=1 to 10 do
           a[k,temp-1]:=t[k];
        end;
writeln('=================================================');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   write(a[i,j]:5);
 writeln;
 end;
writeln('--------------------------------------------------');
writeln;
for i:=1 to 10 do
 write(b[i]:5);
 readln;
end.
end.

заранее очень_очень благодарен. Можешь просто скинуть исходник как и в прошлой проге. Спасибо тебе заранее!

[Terran]

Вторая прога,только результат выводит в столбик:Вложение 7269

[Toxass]

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

Вторая прога,только результат выводит в столбик:Вложение 7269

СПАСИБО огромное!!! А первая прога получается или нет??

[Terran]

А первая прога получается или нет??

Что касается первой проги, то во что получилось:

procedure TForm1.Button1Click(Sender: TObject);
Const n =10;
var C:array[1..n] of integer;
F:array[1..n] of integer;
i,j,summa:integer;
srednee:real;
begin
summa:=0;
for i:=1 to n do
begin
memo1.Lines.add('Vvedite '+inttostr(i)+' element');

C[i]:=strtoint(edit1.Text); //???

summa:=summa+C[i];
end;
srednee:=(summa/n);
j:=1;
for i:=1 to n do
if C[i]>srednee then
begin
F[j]:=C[i];
j:=j+1;
end;
for i:=1 to j-1 do
memo1.Lines.Add(inttostr(F[i]));
end;

Только я тут застрял с вводом данных в массив. Пробовал ставить задержку, всё работает как надо, а так лупит на прямую.

[Toxass]

почемуто тут выбивает ошибку

Const n =10;

, двоеточие перед равно ставил, но все равно выдает ошибку( , проверь пожалуйста и кинь в програмном виде(как предыдущие). ЗАРАНИЕ СПАСИБО!!!!