Vki tud segiteni hogyan lehetne egyáltalán elkezdeni ezt a programot pascalban?

program Penzvaltas;

var

Valuta: Double;

Forint: Double;

Transaction: Byte;

begin

Write('Valuta: ');

Readln(Valuta);

repeat

Write('1. Venni 2. Eladni: ');

Readln(Transaction);

until (Transaction in [1..2]);

if (Transaction = 1) then

Forint := Valuta * 310 {Vételi árfolyam}

else if (Transaction = 2) then

Forint := Valuta * 290; {Eladási árfolyam}

Write('Forint: ');

Writeln(Forint:0:2);

Readln;

end.