Pascal - Procedure pascal

Sono ancora qua XD
Questa volta devo dire un programma un pò più complesso, non so come ma ho de problemi con la variabile t, qualche suggerimento?

program tassa;
uses crt;
var i, n: integer;
    tot, t, metriq: real;
    risp: char;

procedure p1(var t: real; metriq: real);

begin
  t:= metriq * 2;
end;

procedure p2(var t: real; risp: char);

Begin
  if (risp= 'S') or (risp= 's') then
  begin
    t:= t + t * 0.20;
  end;
End;

procedure p3(var tot: real; t: real);

begin
  tot:= tot + t;
end;

begin
  clrscr;
  tot:=0;
  writeln('inserisci il totale delle abitazioni');
  readln(n);
  for i:= 1 to n do
  begin
    writeln('inserisci la metratura');
    readln(metriq);
    p1(t, metriq);
    writeln('Ha il giardino?');
    readln(risp);
    p2(risp, t);
    writeln('La tassa da pagare è di euro', t:6:2);
    p3(tot, t);
  end;
  writeln('Il totale da pagare è di euro', tot:6:2);
  writeln('Il numero delle tasse da pagare è', n);
  readln;
end.

Ciao!

Il compilatore ti segnala errore di incompatibilità tra i tipi.
Per risolvere basta invertire i termini alla chiamata di p2 ( vedi la riga 40).

Non ti rispondo alla domanda, visto che ti ha già risposto Marco...ma ti do un consiglio! Quando chiedi aiuto, non dire questo non va e posti il codice, devi dire questo non va per questo motivo, e poi posti il codide!

Grazie per l'aiuto, comunque va bene!

inoltre, permetti un consiglio?

Per una maggiore compresibilita' per chi legge il codice ( quindi anche per te, e per chi, sul forum vorrebbe aiutarti) sarebbe una buona cosa usare nomi piu' significativi di

p1, p2, p3

in base al reale scopo per cui una funzione o procedura viene concepita.

Ciao.

Luigi.