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

[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;
var n,b,i,c,a,d,z: integer;

pradDuom,
rezult: text;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
b:=0 ;
read(pradduom,b,d,z);
writeln(b,' ',d,' ',z);
for i := 1 to c*n do
begin
read (pradDuom, a);
write(a,' ');
  end;
  Readln;
end. 

Сообщение отредактировано: maksimla - 27.10.2008 19:08