Pascal programkód. Valaki rátudna nézni, hogy lehet-e rövidebben megoldani a feladatot?

A feladat az volt, hogy egy szöveges állományból olvassunk be egy-vagy két számjegyű számokat, amelyeket szóközök választanak el egymástól.

Az én megoldásom:

program project12345;

const c=100;

type

q=record

ho:integer;

hp:integer;

hmp:integer;

bo:integer;

bp:integer;

bmp:integer;

t:integer;

end;

tomb=array[1..c] of q;

var

r,i,j,d:integer;

f:text;

k:tomb;

s:string;

begin

assign(f,'hivasok.txt');

reset(f);

i:=1;

while not eof(f) do begin

readln(f,s);

d:=0;

r:=1;

val(COPY(S,d,r), (k[i].ho),j);

if ord(s[r+1])<>32 then begin

r:=2;

val(COPY(S,d,r), (k[i].ho),j);

inc(d);

end;

val(COPY(S,3+d,r), (k[i].hp),j);

if j<>0 then begin

r:=1;

val(COPY(S,3+d,r), (k[i].hp),j);

end;

if ord(s[3+d+1])<>32 then begin

r:=2;

val(COPY(S,3+d,r), (k[i].hp),j);

inc(d);

end;

val(COPY(S,5+d,r), (k[i].hmp),j);

if j<>0 then begin

r:=1;

val(COPY(S,5+d,r), (k[i].hmp),j);

end;

if ord(s[5+d+1])<>32 then begin

r:=2;

val(COPY(S,5+d,r), (k[i].hmp),j);

inc(d);

end;

val(COPY(S,7+d,r), (k[i].bo),j);

if j<>0 then begin

r:=1;

val(COPY(S,7+d,r), (k[i].bo),j);

end;

if ord(s[7+d+1])<>32 then begin

r:=2;

val(COPY(S,7+d,r), (k[i].bo),j);

inc(d);

end;

val(COPY(S,9+d,r), (k[i].bp),j);

if j<>0 then begin

r:=1;

val(COPY(S,9+d,r), (k[i].bp),j);

end;

if ord(s[9+d+1])<>32 then begin

r:=2;

val(COPY(S,9+d,r), (k[i].bp),j);

inc(d);

end;

val(COPY(S,11+d,r), (k[i].bmp),j);

if j<>0 then begin

r:=1;

val(COPY(S,11+d,r), (k[i].bmp),j);

end;

if ord(s[11+d+1])<>32 then begin

r:=2;

val(COPY(S,11+d,r), (k[i].bmp),j);

inc(d);

end;

readln(f, k[i].t);

inc(i);

end;

close(f);

readln;

end.

Nem lehetne valami ciklussal lerövidíteni?