[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.