Олипиадные работы, кто поможет решить?

program olimp;
var a:text;
z,q:array [1..100,1..100] of char;
b:array [1..10]of string;
s:array [1..100,1..100] of integer;
i,c,x:string;
g:char;
za,zb,zd,qb,n,f,m,l,h,p:integer;
d:real;
begin
assign(a,'c:\1.in');
reset (a);
read(a,c);
val(c,f,m);
n:=0;
while not eof(a) do begin n:=n+1;
readln(a,i);
b[n]:=i;
end;
l:=0;
if f>5 then p:=f else p:=6;
repeat l:=l+1;
       x:=b[l];
       h:=0;
       repeat
         h:=h+1;
         z[l,h]:=x[h]
       until h=p;
until l=f+2;
zd:=0; qb:=1;
repeat zd:=zd+1; za:=2;
   repeat za:=za+1; zb:=0;
      repeat zb:=zb+1;
       if z[za,zb]=z[2,zd] then
       begin
       q[1,qb]:=z[za,zb];
       s[1,qb]:=za-2;
       qb:=qb+1;
       end else;
      until zb=6;
   until za=p+2;
until zd=f;
 
 
writeln(s[1,5],f);
readln;
end.