програма на Паскал

Някой може ли да ми помогне с една програма на Паскал с масиви. Програмата е следната: Да свият масивите А,В,С посредством изключване на нулевите елементи и елементите по-малки от 5,5. PLS

var a,b,c,a1,b1,c1:array[1..1000] of real; i,m,n,p,br1,br2,br3:integer;
begin
write('vavedi broq elementi v masiv A ');readln(m);
write('vavedi broq elementi v masiv B ');readln(n);
write('vavedi broq elementi v masiv C ');readln(p);
for i:=1 to m do begin
write('vavedi A[',i,']= ');readln(a);
if (a<>0) and (a>=5.5) then begin
br1:=br1+1; a1[br1]:=a; end;
end;
for i:=1 to n do begin
write('vavedi B[',i,']= ');readln(b);
if (b<>0) and (b>=5.5) then begin
br2:=br2+1; b1[br2]:=b; end;
end;
for i:=1 to p do begin
write('vavedi C[',i,']= ');readln(c);
if (c<>0) and (c>=5.5) then begin
br3:=br3+1; c1[br3]:=c; end;
end;
for i:=1 to br1 do
writeln('A1[',i,']= ',a1:5:5);readln;
for i:=1 to br2 do
writeln('B1[',i,']= ',b1:5:5);readln;
for i:=1 to br3 do
writeln('C1[',i,']= ',c1:5:5);readln
end.

horata ne sa dlajni da ti pi6at zada4ite za uni-tata .6to ne sedne6 da po4ete6 malko

e s tova ako ne mojesh da se spravish zna4i si mnogo zle i izob6to ne trebe da se zanimava6 s programirane.