как читать с файла Опции

[maksimla]

как вот это прочитать правильно с файла
вот первые две цывры могу прочитать первая цыфра идет для того чтобы узнать сколько в строчке будет цыфр врорая для того чтобы длину определить на следущий строчке идет первые три цыфры которые надо сравнивать с остальными как мне это все хорошо прочитать все цыфры
3 6
7 4 4
1 8 2
5 5 5
3 2 1
7 4 5
1 1 7
6 3 2

[maksimla]

program staciakampis;
type mas= array [1..100] of integer;
var n,i,c,j: integer;
pradDuom,rezult: text;
a,b:mas;
procedure sort( var m:mas; s:integer);
var k:integer;
begin
for i:= 1 to s - 1 do
      for j:= i+1 to s do
       if a[i]> a[j] then
        begin
         k:=m[i];
         m[i]:=m[j];
         m[j]:=k;
       end;
       end;
 
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
{for i:=1 to n do begin
read(pradduom,b[i]);
  if i = 3  then
  begin
   sort(b,n);
   for i:=1 to n do
   writeln(b[i]);
   end;
  end; }

for j := 1 to c do
begin
 for i := 1 to n do
  begin
   read (pradDuom,a[i] );
  if i=3  then
  begin
   sort(a,n);
   for i:=1 to n do
   writeln(a[i]);
   end;
  end;
writeln;
end;
 close(pradDuom);
 close(rezult);
Readln;

end. 

в чем ошибка у меня тут если тут мне нужно распредилить цифры по возвростания