Tudna segíteni egyszerű visual basic-es feladatokban?

Sajnos nincs VB a gépemen és régen is foglalkoztam vele de álljon itt Pascalban a 4. feladat megoldása.

Egyszerű átírni az if az mindenütt if, a Write neked print, a var az Dim.... :)

Program Nagyedik;

var Sum, szam1, szam2, tort : Real; {Dim Sum As ....}

Label kezd;

begin

Sum:=0;

szam1:=2;

szam2:=4;

kezd:

if (szam1>0) and (szam2>0) then

begin

if szam1 > szam2 then

tort:=szam2/szam1

else

tort:=szam1/szam2;

Write(szam1, szam2, Tort);

Sum:=Sum+Tort;

Readln(szam1);

Readln(szam2);

Goto kezd;

end

else

begin

Writeln(Sum);

Writeln('Saját név');

end;

end.