Перевести код из Паскаля в Делфи

var p,i,x,count: integer;
begin
    count := 0;
    p := 1;
    for i := 1 to 4 do
    begin
        read (x);
        if x >= 0 then begin
            p := p*x;
            count := count+1;
        end
    end;
    if count > 0 then
    begin
       writeln(count);
        writeln(p);
    end
    else
        writeln('NO');
end.

var n, k: integer;
begin
  read(n);
  k := 1;
while k*k < n do
    k := k + 1;
  writeln(k-1," ",k)
end.

var  a, s, p, k: integer;
begin
    readln(a);
    s := 0; 
    p := 0; 
    k := 1; 
    while s <= a do begin ;
      p := k+p;
      s := p+s;
      k := k+1;
    end;
    writeln(k-2);
end.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,a,k,p:integer;
    s:string;
begin
p:=1;
k:=0;
for i:=1 to 4 do
 begin
  repeat
   s:=inputbox('','Введите целое число от -10 до 10','');
   val(s,a,j);
   if(j<>0)or(abs(a)>10) then showmessage('Введите целое число от -10 до 10');
  until(j=0)and(abs(a)<=10);
  Label1.Caption:='';
  Label1.Caption:=Label1.Caption+inttostr(a)+'  ';
  if a>0 then
   begin
    k:=k+1;
    p:=p*a;
   end;
 end;
if k=0 then Label2.Caption:='Положительных чисел нет'
else Label2.Caption:='Количество положительных='+inttostr(k)+
                     ' их произведение='+inttostr(p);
 
end;