Program Pascal Konversi suhu

program konversisuhu;
uses wincrt;
type konversi_suhu=record
F : real;
C : real;
end;
var konversi:array [1..10] of konversi_suhu;
ulang : char;
m,n: integer;
begin
m :=0;
repeat
clrscr;
for n:=1 to 1 do
with konversi[n] do
begin
m :=m+1;
writeln('Program Konversi Fareinheit ke Celcius');
writeln('======================================');
writeln;
writeln('Masukan Suhu Dalam Fareinheit: ');readln(F);
C:=5/9*(F-32);
writeln;
writeln('Jadi Suhu Dalam Celcius Adalah : ',C:4:2);
end;
writeln('Mau Ulang Lagi ?y/t');readln(ulang);
until upcase (ulang) <> 'Y';
end.