[luffi]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils;   Var s:array[1..50] of integer; n,m:integer; i,j:integer;   Procedure WriteComp; Var i:integer; Begin for i:=1 to m do Write(s[i],''); Writeln; end; begin   { TODO -oUser -cConsole Main : Insert code here } write('z => '); readln(m);   write('do => '); readln(n);   writeln('_____________'); for i:=1 to m do s[i]:=i; While (True) do Begin WriteComp; i:=m; while (i>0) and (s[i]=n-m+i) do dec(i); if i = 0 then break; inc(s[i]); for j:=i+1 to m do s[j]:=s[j-1]+1; End; readln end.

[angvelem]

Что значит перевести? Как есть так и компилируй.

[luffi]

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

[luffi]

уже не нада, сам сделал

[angvelem]

Да и не собирался. Было бы смешно переводить масло в масляное.