Pascal/Turbo Pascal - Necesito que alguien me brinde apoyo en realizar un programa en Pascal porfavor, soy nuevo en esto.

El programa es en Pascal, disculpen

Hola, cual es el programa.
Salu2.

Ahora te subire las instrucciones te lo agradezco


Aca tengo la base
Program Programa2;
Uses WinCrt;
Var

O,C: Integer;
SN: Char;
T:Real;

Begin
Repeat
ClrScr;
GotoXY(15,05);WriteLn('16 Keyly Camo 3A Fecha: 16/08/2021');
GotoXY(40,08);WriteLn('GASOLINERA 7-ELEVEN');
GotoXY(15,09);WriteLn('.......................................................................');
GotoXY(15,11);WriteLn('MENU:');
GotoXY(15,13);WriteLn('1 REGULAR.............. Q.25.50');
GotoXY(15,15);WriteLn('2 SUPER................ Q.28.50');
GotoXY(15,17);WriteLn('3 DISEL................ Q.23.50');
GotoXY(50,13);WriteLn('OPCION:');
GotoXY(60,13);ReadLn(O);
GotoXY(50,16);WriteLn('CANTIDAD:');
GotoXY(60,16);ReadLn(C);
GotoXY(15,19);WriteLn('........................................................................');


If O = 1 Then
Begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(T);
End;

If 3 > 1 * 25.50 Then
Begin
GotoXY(80,13);WriteLn(T);
GotoXY(80,13);WriteLn(T:8:0);
End;



GotoXY(27,21);WriteLn('Otro Ingreso S/N:');
GotoXY(50,21);Readln(SN);
Until (SN = 'N') or (SN = 'S');
End.

mira lo tullo arreglado.

Program Programa2;
Uses Crt;
Var

O,C: Integer;
SN: Char;
T:Real;

Begin
Repeat
ClrScr;
GotoXY(15,05);WriteLn('16 Keyly Camo 3A Fecha: 16/08/2021');
GotoXY(40,08);WriteLn('GASOLINERA 7-ELEVEN');
GotoXY(15,09);WriteLn('.....................................................');
GotoXY(15,11);WriteLn('MENU:');
GotoXY(15,13);WriteLn('1 REGULAR.............. Q.25.50');
GotoXY(15,15);WriteLn('2 SUPER................ Q.28.50');
GotoXY(15,17);WriteLn('3 DISEL................ Q.23.50');
GotoXY(50,13);WriteLn('OPCION:');
GotoXY(60,13);
repeat
sn := readkey;
until sn in['1','2','3'];
GotoXY(50,16);WriteLn('CANTIDAD:');
GotoXY(60,16);ReadLn(C);
GotoXY(15,19);WriteLn('...............................................');
case sn of
'1' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(25.50 * c:0:2);
end;
'2' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(28.50 * c:0:2);
end;
'3' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(23.50 * c:0:2);
end;
end;
GotoXY(27,21);WriteLn('Otro Ingreso S/N:');
GotoXY(50,21);
repeat
SN := upcase(readkey);
until sn in['N','S'];
Until SN = 'N';
End.