Задача в Паскале 5 /Есть решение, нужно объяснение

Привет. Помогите пожалуйста с объяснением.. . перепод будет по полной спрашивать каждую строчку.



Решение

Program Lab7;

Var

f,g:file of char;
Namef,nameg:string;
i:integer;
s:char;
a,b:char;
rezultat:integer;

Begin

namef:='3.txt';
nameg:='4.txt';

assign(f,namef);
rewrite(f);
For i:=1 to 31 do begin
s:=chr(45+i);
write(f,s);
end;
close(f);

assign(g,nameg);
rewrite(g);
For i:=1 to 131 do begin
{ If i=17 then s:=chr(105+i) else} s:=chr(45+i);
write(g,s);
end;
close(g);

assign(f,namef);
assign(g,nameg);

reset(f);
reset(g);

Rezultat:=0; i:=1;

While (not Eof (f)) and (not Eof(g)) and (Rezultat=0)
do begin
Read(f,a);
Read(g,b);
If a<>b then
Rezultat:=i
else begin
i:=i+1;
If (Eof(f) and (not Eof(g))) OR
(Eof(g) and (not Eof(f))) then Rezultat:=i;
end {else}
end; {While not Eof (f) }

Writeln(Rezultat);

{For i:=1 to 20 do begin
Writeln(a);
end;}

close(f);
close(g);

End.