типизированные файлы!!!!!!!

[--Sashok--]

я прописал у файле инпут строчку 12 3 4 5 в оутпут вышло 3 4 1 2 что за бред?

[Mad_Cat]

то что ты пишешь ручками это не типизированный файл ) а текстовый просто без расширения txt и прогой он не воспринимается как типизированный поэтому и пишет ересь)

[--Sashok--]

Mad_Cat, вот прописал новая трабла =(

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f,g:file of integer;
  m:array[1..100] of integer;
  k,i,o:integer;
begin
  assign (f,'input');
  rewrite(f);
  writeln('Vvedit kilkist elementiv faily');
  readln(k);
  for i:=1 to k do
  begin
    write(' ');
    readln(o);
    write(f,o);
    end;
    close(f);
  assign(f,'input');
  reset(f);
  k:=0;
  while not eof(f) do
  begin
    k:=k+1;
    read(f,m[k]);
  end;
  assign(g,'output');
  rewrite(g);
  for i:= k downto 1 do
    write(g,m[i]);
  close(f);
  close(g);
  readln
end.

[Mad_Cat]

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  f,g:file of integer;
  m:array[1..100] of integer;
  k,i,o:integer;
begin
  assignfile (f,'input');
  rewrite(f);
  writeln('Vvedit kilkist elementiv faily');
  readln(k);
  for i:=1 to k do
  begin
    write(' ');
    readln(o);
    write(f,o);
  end;
  closefile(f);
  assign(f,'input');
  reset(f);
  k:=0;
  while not eof(f) do
  begin
    k:=k+1;
    read(f,m[k]);
  end;
  assignfile(g,'output');
  rewrite(g);
  for i:= k downto 1 do
    write(g,m[i]);
  closefile(f);
  closefile(g);
  writeln('File output');
  assignfile(g,'output');
  reset(g);
  while not eof(g) do
  begin
    read(g,o);
    writeln(o)
  end;
  closefile(g);
  readln;
end.

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

[--Sashok--]

Спасибо всем, особенно Mad_CaT