перебор вариантов

[luffi]

помогите перевести етот код с паскаля в делфи. вывод в мемо при нажатие кнопки, з-до в едитах вводится

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.

[mihali4]

Ну нельзя ж так вот - по-наглому переть...
Для начала нехило бы и правила раздела прочесть...
Я - жук тертый, буду штрафовать по посинения (то бишь до бана).
Вам это надо ? Думаю, что нет... Тогда прочитайте, пожалуйста, правила раздела Только не "по диагонали", а вдумчиво...
И вливайтесь в нашу дружную компанию !

[luffi]

я извиняюсь, я просто приблизительно написал, "макет" чтото подобное. а если ето вышло так дерзко, я ещо раз извеняюсь...