Procedure Parametriche

[djcuca]

raga aiuto...
domani ho gli esami e nn ho ancora studiato e ho deciso oggi di fa qualkosa eheh ste cose le ho fatte verso gennaio scorso ma ricorco poco!il codice è in Tp come potete vedere..innanzi tutto è giusto?xchè il tp ad un certo punto che lo esegue esce bho!
poi le procedure paramentriche quando tra le parentesi cè ( var variabile:integer) vuol dire che va a modificare la variabile generale che ho inserito all'inizio ? e quando non metto Var cioè ( variabile:integer) cosa succede..se qualkuno puo spiegarmi bene..grazie

program uguali;
uses crt;
const max=50;
type
indice=0..max;

vettore=array[1..max] of integer;

var
dimA,dimB,dimC:indice;
I,J,F:indice;
vetA,vetB,vetC:vettore;


procedure leggiVettore (var dim:indice; var vet:vettore);
begin
write('Qual Š la dimensione del vettore:'); readln(dim);
for I:=1 to dim do
begin
write('Inserisci il ',I,' elemento:');
readln(vet[I])
end;
end;

procedure trova_uguali(dim1,dim2:indice; var dim3:indice;
vet1,vet2:vettore; var vet3:vettore);
begin
I:=0; dimC:=0; F:=0;
repeat
I:=I+1;
J:=0;
repeat
J:=J+1;
if vet1[I]=vet2[J]
then
begin
F:=F+1;
vet3[F]:=vet1[I];
(* I:=I+1;
J:=0;*)
dim3:=dim3+1;
end;

until not(J<dim2);
until not(I<dim1);
end;
procedure stampa(dim3:indice;vet3:vettore);
begin
write('Il vettore uguali Š:');
for F:=1 to dimC do
write(' ',vetC[F]);

writeln; readkey; clrscr;
end;
begin
leggiVettore(dimA,vetA);
leggiVettore(dimB,vetB);
trova_uguali(dimA,dimB,dimC,vetA,vetB,vetC);
stampa(dimC,vetC);
end.

Grazie

[djcuca]

AIUTOOOOOOOOOOOOOOOOO!