Файлы, матрицы. Паскаль.

[anatoliy_julia]

Сформировать файл f1 вещественных чисел.записать в конец файла значение предпоследней компоненты файла.сформировать матрицу а(2,5) следующим образом- в первую строку матрицы записать комп файла, читая его с начала, во вторую строку- читая с конца. Если не возможно формирование матрицы, дать сообщение.

[puporev]

uses crt;
const m=2;
      n=5;
var f:file of real;
    r:real;
    a:array[1..m,1..n] of real;
    i,j,k:integer;
begin
clrscr;
assign(f,'f1');
rewrite(f);
writeln('Введите в файл числa, окончание ввода 0:');
repeat
write('r=');
readln(r);
write(f,r);
until r=0;
close(f);
reset(f);
seek(f,filesize(f)-2);
read(f,r);
seek(f,filesize(f));
write(f,r);
close(f);
clrscr;
writeln('Содержание файда F1:');
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(r:4:1);
 end;
writeln;
if filesize(f)<5 then
 begin
  write('В файле менее 5 чисел, формирование матрицы невозможно!');
  readln;
  exit;
 end;
close(f);
reset(f);
for i:=1 to n do
 begin
  seek(f,i-1);
  read(f,r);
  a[1,i]:=r;
 end;
close(f);
reset(f);
for i:=1 to n do
 begin
  seek(f,filesize(f)-i);
  read(f,r);
  a[2,i]:=r;
 end;
close(f);
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4:1);
  writeln;
 end;
readln
end.