Pascal. Массивы. Файлы.

[Игopь]

Пожалуйста решите мне задачу.

Сообщение от Условие задачи

Написать одну программу которая заполняет двумерный массив 5x8 числами по возрастанию, показывает его на экране в виде правильной таблицы затем записывает эту матрицу в текстовый и типизированный файлы.
Вторая программа читает матрицы из этих файлов и показывает их на экране.
Операции заполнение матрицы, печати на экране и запись, чтение файлов должны быть оформлены в виде отдельных процедур.

пожалуйста

[GreenWizard]

ну наброски сделай, идеи опиши, а мы уже поправим
ты же не платишь за работу... да и если ты даже такую не можешь решить, то учись хотя бы платить другим за решение, либо пытайся сам решить
есть тонкая грань между работой и помощью... помощь - когда выполняешь часть работы (пусть даже это и 99%, но часть же)

[Игopь]

program qwe;
const
n=5;m=8;
var
q:array[1..n,1..m] of integer;
procedure zapol;
var w,e:integer;
begin
for w:=1 to n do
  begin
    for e:=1 to m do
      q[w,e]:=random(20);
  end;
end;
procedure pokaz;
var w,e:integer;
begin
for w:=1 to n do
  begin
    for e:=1 to m do
      write(q[w,e]:3);
    writeln;
  end;
end;

procedure zapis;
var z:text; w,e:integer;
begin
assign(z,'podarok.txt');
rewrite(z);
for w:=1 to n do
  begin
  for e:=1 to m do
      if e=m then
      begin
      writeln(z,q[w,e]:3);
      end
      else
      begin
      write(z,q[w,e]:3);
      end;
  end;
close(z);
end;


begin
zapol;
pokaz;
zapis;
end.

как создать типизированный файл не знаю. и как считать массив тоже. помогите пожалуйста.

[GreenWizard]

о как подействовала фраза "200р" =) сразу мотивация появилась, код вон нашёл/написал
замени text на "file of integer"
по аналогии с zapis напиши считывание, а потом просто сделай одну прогу с заполнение+запись+вывод(для наглядности), вторую - чтение+вывод

[Stilet]

как создать типизированный файл

procedure ...;
var w,e:integer; f:file of integer;
begin
assign(f,'file'); rewrite(f);
for w:=1 to n do
  begin
    for e:=1 to m do
      write(f,q[w,e]);
  end;
close(f);
end;

как считать массив

procedure ...;
var w,e:integer; f:file of integer;
begin
assign(f,'file'); reset(f);
for w:=1 to n do
  begin
    for e:=1 to m do
      read(f,q[w,e]);
  end;
close(f);
end;

[Игopь]

Сообщение от Stilet

procedure ...;
var w,e:integer; f:file of integer;
begin
assign(f,'file'); rewrite(f);
for w:=1 to n do
  begin
    for e:=1 to m do
      write(f,q[w,e]);
  end;
close(f);
end;

procedure ...;
var w,e:integer; f:file of integer;
begin
assign(f,'file'); reset(f);
for w:=1 to n do
  begin
    for e:=1 to m do
      read(f,q[w,e]);
  end;
close(f);
end;

спасибо за помощь