помогите переделать программы под задание

[Povar]

помогите переделать программы под задание
задание

На экране нарисовать группы линий. Информацию о каждой группе – цвет, тип линий, количество линий данного цвета и данного типа, координаты каждой линии, записать в нетипизированный файл. Сохранить файл на диске. Восстановить содержимое экрана из файла.

код программы для типизированного файла

program iu;
 uses crt,graph;
  const m=4;
var dr,md:integer;
var coord :array [1..m] of array [1..4] of integer;
var i:integer;
F: file of integer;
begin
coord[1][1] := 300; coord[1][2] := 200; coord[1][3] := 300; coord[1][4] := 350;
coord[2][1] := 300; coord[2][2] := 200; coord[2][3] := 150; coord[2][4] := 200;
coord[3][1] := 300; coord[3][2] := 200; coord[3][3] := 450; coord[3][4] := 200;
coord[4][1] := 300; coord[4][2] := 200; coord[4][3] := 300; coord[4][4] := 50;

  dr:=VGA; md:= VGAhi;
  initgraph (dr,md,'D:\tp\bgi');
  Assign (f,'D:\123456789.txt') ;
  rewrite (f);
   for i :=1 to m  do
     begin
   setcolor(4);
    line(coord[i][1],coord[i][2],coord[i][3],coord[i][4]);
    write(f,coord[i][1]);
    write(f,coord[i][2]);
    write(f,coord[i][3]);
    write(f,coord[i][4]) ;
     end;
     while not keypressed do
     begin
     i:=0;
     end;
     readln;
 clrscr;
   readln;
   reset (f);

while not eof(f) do
begin
   read   (f,coord[1][1]);
   read   (f,coord[1][2]);
   read   (f,coord[1][3]);
   read   (f,coord[1][4]);
 writeln (coord [1][1]);
line(coord[1][1],coord[1][2],coord[1][3],coord[1][4]);
      end;
        readln;
     closegraph;
      close(f) ;
      end.

а переделать для нетипизированного файла.
помоготе плиз!!!!!!!!!

[Stilet]

Намекну:

  const m=4;
var dr,md:integer;
 coord :array [1..m] of array [1..4] of integer;
 i:integer;
F: file;
begin
coord[1][1] := 300; coord[1][2] := 200; coord[1][3] := 300; coord[1][4] := 350;
coord[2][1] := 300; coord[2][2] := 200; coord[2][3] := 150; coord[2][4] := 200;
coord[3][1] := 300; coord[3][2] := 200; coord[3][3] := 450; coord[3][4] := 200;
coord[4][1] := 300; coord[4][2] := 200; coord[4][3] := 300; coord[4][4] := 50;

  Assignfile (f,'c:\temp\123456789.txt') ;
  rewrite (f);
   for i :=1 to m  do
     begin
    blockwrite(f,coord[i][1],sizeof(coord[i][1]));
     end;

   reset(f);
i:=1;
while not eof(f) do
begin
   blockread(f,coord[i][1],sizeof(coord[i][1]));inc(i);
      end;
      closefile(f) ;
end;
end.

[Povar]

чего то не идет

[Stilet]

А так:

   const m=4;
var dr,md:integer;
 coord :array [1..m] of array [1..4] of integer;
 i:integer;
F: file;
begin
coord[1][1] := 300; coord[1][2] := 200; coord[1][3] := 300; coord[1][4] := 350;
coord[2][1] := 300; coord[2][2] := 200; coord[2][3] := 150; coord[2][4] := 200;
coord[3][1] := 300; coord[3][2] := 200; coord[3][3] := 450; coord[3][4] := 200;
coord[4][1] := 300; coord[4][2] := 200; coord[4][3] := 300; coord[4][4] := 50;

  Assign(f,'c:\temp\123456789.txt') ;
  rewrite (f,1);
  blockwrite(f,coord,m*4*sizeof(integer));

   reset(f,1);
i:=1;
 blockread(f,coord,m*4*sizeof(integer));inc(i);
      close(f) ;
end;
end.

[Povar]

все равно не идет

[Povar]

я уже переписал а все равно не выводит, коперни себемоя изначальныю прогу и мне нужет такой же результат чтобы он сперва рисовал, потом стирал экран и заново востанавливал

[Stilet]

Лентяй ты, потому и не работает у тебя ничего.
Вот смотри, так ты хотел?:

program iu;
 uses crt,graph;
  const m=4;
var dr,md:integer;
var coord :array [1..m] of array [1..4] of integer;
var i:integer;
F: file;
begin
coord[1][1] := 300; coord[1][2] := 200; coord[1][3] := 300; coord[1][4] := 350;
coord[2][1] := 300; coord[2][2] := 200; coord[2][3] := 150; coord[2][4] := 200;
coord[3][1] := 300; coord[3][2] := 200; coord[3][3] := 450; coord[3][4] := 200;
coord[4][1] := 300; coord[4][2] := 200; coord[4][3] := 300; coord[4][4] := 50;

  dr:=VGA; md:= VGAhi;
  initgraph (dr,md,'D:\tp\bgi');
  Assign (f,'c:\temp\123456789.txt') ;
  rewrite (f);
  for i:=1 to 4 do begin
   setcolor(4);
    line(coord[i][1],coord[i][2],coord[i][3],coord[i][4]);
  end;
    blockwrite(f,coord,m*4*sizeof(integer)) ;
     while not keypressed do;


  clrscr;
   reset (f);
   blockread   (f,coord,m*4*sizeof(integer));
   for i:=1 to 4 do begin
line(coord[i][1],coord[i][2],coord[i][3],coord[i][4]);
end;


        readln;
     closegraph;
      close(f) ;
      end.

[Povar]

спаисбо практически что я и хотел, ту программу сам придумал 2 дня голову ломал, но прога рабочая, а препод сказал что надо с нетипизированным файлом делать а мне голову и так напрягать стало в лом просто что-то потправить это можно, а снова по книгам листать не очень то и охота.
Спасибо тебе большое с меня 100 грамм и пончик !!!!!!