prosiiim o pomoc s jednym prikadom o ktorom nemam ani sajnu

program Project2;
var vstup_a,vstup_b:textfile;
    I,velkost:integer;
    zhodne, zhodne_p, zhodne_n:integer;
    a,b:array[1..30] of integer;
begin
  assign(vstup_a,'a.txt');
  assign(vstup_b,'b.txt');
  reset(vstup_a);
  reset(vstup_b);
  I:=1;
  velkost:=1;
  zhodne:=0;
  zhodne_p:=0;
  zhodne_n:=0;
  while not(eof(vstup_a)) do begin
    readln(vstup_a,a[velkost]);
    inc(velkost);
    end;
  while not(eof(vstup_b)) do begin
    readln(vstup_b,b[i]);
    inc(i);
    end;
  if velkost>=I then velkost:=I;
  for I:=1 to velkost do begin
    if a[i]=b[i] then inc(zhodne);
    if (a[i] mod 2 = 0) and (b[i] mod 2 = 0) then inc(zhodne_p);
    if (a[i] mod 2 = 1) and (b[i] mod 2 = 1) then inc(zhodne_n);
  end;
close(vstup_a);
close(vstup_b);
writeln('Počet zhodnych: ',zhodne);
writeln('Počet zhodne parnych: ',zhodne_p);
writeln('Počet zhodne neparnych: ',zhodne_n);
end.