Заполнение динамического массива из файла, где в первой строке указан размер массива, а вторая строка содержит значения

program PROG5_21_B;
 
var
  t: text;
  n, j, i: integer;
 
begin
  var b: array of integer;
  // Чтение из файла и заполнение массива
  assign(t, 'D:\utorrent\Pascal\II Лаб\text.txt');
  reset(t);
  read(t, n);
  writeln('Многочлен ', n, 'степени');
  SetLength(b, n + 1);
  j := 0;
  while not eoln(t) do
  begin
    inc(j);
    read(t, b[j]);
  end;
  close(t);
  writeln('Исходный массив b: ');
  for i := n downto 0 do
    write(b[i]: 4);
  writeln;
end.

var t: text;
    b:array of  integer;
    n,i: integer;
begin
  // Чтение из файла и заполнение массива
  assign(t, 'D:\utorrent\Pascal\II Лаб\text.txt');
  reset(t);
  read(t, n);
  writeln('Многочлен ', n, 'степени');
  n := 0;
  while not eof(t) do
   begin
    inc(n);
    SetLength(b,n);
    read(t, b[n-1]);
   end;
  close(t);
  writeln('Исходный массив b: ');
  for i := 0 to n-1 do
  write(b[i]: 4);
  writeln;
end.

uses crt;
var t: text;
    b:array of  integer;
    n,i: integer;
begin
clrscr;
  // Чтение из файла и заполнение массива
  assign(t, 'text.txt');
  reset(t);
  read(t, n);
  writeln('Многочлен ', n, 'степени');
  n := 0;
  while not eof(t) do
   begin
    inc(n);
    SetLength(b,n);
    read(t, b[n-1]);
   end;
  close(t);
  writeln('Исходный массив b: ');
  for i := 0 to n-1 do
  write(b[i]: 4);
  readln;
end.

var
  t: text;
  b: array of  integer;
  n, i: integer;
 
begin
  // Чтение из файла и заполнение массива
  assign(t, 'D:\utorrent\Pascal\II Лаб\Новая папка\text.txt');
  reset(t);
  read(t, n);
  close(t);
  writeln('Многочлен ', n, ' степени : ');
  SetLength(b, n + 1);
  for i := n downto 0 do
    write(b[i]: 4);
end.

uses crt;
var t: text;
    b:array of real;
    a:real;
    n,i:integer;
begin
clrscr;
  // Чтение из файла и заполнение массива
assign(t, 'text.txt');
reset(t);
read(t,n);
setlength(b,n+1);
writeln('Многочлен ',n,' степени');
for i:=0 to n do
 begin
  read(t, b[i]);
  write(b[i]:0:2,' ');
 end;
writeln;
read(t,a);
writeln('a=',a:0:2);
close(t);
writeln('Массив, умноженный на ',a:0:2);
for i := 0 to n do
 begin
  b[i]:=b[i]*a;
  write(b[i]:0:2,' ');
 end;
readln;
end.