Read from file to array

program skaityti;
 uses crt;
 var failas                    : text;
     lina,
     jurgis,
     a, b, c, d, e             : integer;
     linos_zaislai_mas, jurgio_zaislai_mas : array[1..100] of integer;

//===========================
//===========================
{ ***skaitymo proceduru pradzia*** }
//===========================
procedure pirma_eilute;
begin
  read(failas,lina);
  read(failas,jurgis);
  //writeln(lina,' ',jurgis);
end;
//===========================
procedure linos_eilute;
begin
  for a := 1 to lina do
   begin
    read(failas,linos_zaislai_mas[a]);
    //write(linos_zaislai_mas[a],' ');
   end;
   //writeln;
end;
//===========================
procedure jurgio_eilute;
begin
  for b := 1 to jurgis do
   begin
    read(failas,jurgio_zaislai_mas[b]);
    //write(jurgio_zaislai_mas[b],' ');
   end;
end;
{ ***skaitymo proceduru pabaiga*** }

//===========================
//===========================
{ ***teksto apdorojimo proceduros*** }
procedure linos_zaisliukai;
begin
    repeat
     if linos_zaislai_mas[a] <> jurgio_zaislai_mas[b] then
    Write(linos_zaislai_mas[a],' ');
    until linos_zaislai_mas[a] <> jurgio_zaislai_mas[b];
    WriteLn;
end;
//===========================
procedure jurgio_zaisliukai;
begin
     if linos_zaislai_mas[a] <> jurgio_zaislai_mas[b] then
    Write(jurgio_zaislai_mas[b],' ');
    WriteLn;
end;
//===========================

begin
 assign(failas,'u1duom.txt');
 reset(failas);
  pirma_eilute;
  linos_eilute;
  jurgio_eilute;
  linos_zaisliukai;
  jurgio_zaisliukai;
  readkey;
 close(failas);
end.