HELP prosim pomoc pri rieseni

program polia;
uses CRT;
const MAX=10;
var a,b:array[1..MAX] of integer;
    vstup_a,vstup_b:text;
    I,k:integer;
    cislo_a,cislo_b:string;
begin
     assign(vstup_a,'a.txt');
     assign(vstup_b,'b.txt');
     reset(vstup_a);
     reset(vstup_b);
     for I:=1 to MAX do begin
         readln(vstup_a,cislo_a);
         val(cislo_a,a[i],k);
         readln(vstup_b,cislo_b);
         val(cislo_b,b[i],k);
     end;
     close(vstup_a);
     close(vstup_b);

clrscr;
writeln('A     B     A+B     A-B     A*B     A/B');
writeln('----------------------------------------');
for I:=1 to MAX do begin
    write(a[i],'     ',b[i],'     ',a[i]+b[i],'     ',a[i]-b[i],'     ');
    writeln(a[i]*b[i],'     ',a[i]/b[i]:4:2);
    end;
repeat until keypressed;
end.