Pascal - Cosa c'è che non va in questi programma?

14/11/12 20:42

Ragazzi mi rivolgo a voi esperti perché davvero non riesco a venirne fuori. Ho letto e riletto il codice ma non riesco a capire dove stanno i problemi segnalati dal compilatore, il programma è semplice... Ecco il codice:

program t_celsius_kelvin;
uses crt;
var
  scelta:integer;
  t:real;

begin
  textcolor(white);
  writeln('Indica il tipo di conversione da effettuare. Digita:');
  writeln('[1] Per convertire da gradi Celsius a gradi Kelvin');
  writeln('[2] Per convertire da gradi Kelvin a gradi Celsius');
  readln(scelta);
  clrscr;
  case scelta of

    1 : begin
          write('Inserisci la temperatura in gradi Celsius: ');
          readln(t);
          clrscr;
          t:=t+273.15;
          write('La temperatura in gradi Kelvin e'' di: ',t:10:3,' K');
        end;

    2 : begin
          repeat
            begin
              write('Inserisci la temperatura in gradi Kelvin: ');
              readln(t);
              clrscr;
              if (t<0)
                then
                  begin
                    write('La temperatura in gradi Kelvin non puo'' essere negativa! Riprova.');
                    writeln;
                  end;
            end;
          until (t>0);
          t:=t-273.15;
          write('La temperatura in gradi Celsius e'' di: ',t:10:3,' °C');
        end;

  readkey;
end.

...Provate a compilarlo e osservate gli errori del compilatore... Dove sbaglio? :-?