var
  f: file of integer;
  x: Integer;
begin
  // Открываем файл на чтение
  assign(f, 'chislo.dat');
  reset(f);
  while not eof(f) do
  begin
    read(f, x); // читаем число
    writeln(x); // Выводим его на экран
  end; //while
  close(f);
end.

program laba1;
uses crt;
const
  NumbersCount = 10;
var
  f: file of integer;
  i, x: integer;
begin
  clrscr;
  assign(f,'numbers.dat');
  {Генерация файла с числами (если файл
   генерить не надо, можно стереть следующие строки)}
{------------отсюда-------------}
  randomize;
  rewrite(f);
  for i:=1 to NumbersCount do
  begin
    x:=random(NumbersCount*10);
    write(f,x);
  end;
  close(f);
  {--------до сюда--------------}
  reset(f);
  while not EOF(f) do
  begin
    read(f,x);
    write(x,' ');
  end;
  readln;
end.

program laba2;
uses crt;
const
  NumbersCount = 10;
var
  f: file of integer;
  i, x: integer;
begin
  clrscr;
  assign(f,'numbers.dat');
  randomize;
  rewrite(f);
  for i:=1 to NumbersCount do
  begin
    x:=random(NumbersCount*10);
    if x=0 then inc(x);
    write(f,x);
  end;
  close(f);
  readln;
end.

repeat
 read(i);
 if i='exit' then
  x:='exit'
 else writeln('ERROR!');
 until i='exit';

read(a);

uses crt;
type
  TPtr  = ^TElem;
  TElem = record
     Inf  : Real; {Inf может быть любого типа}
     Link : TPtr;
  end;
const k=10;
var
  BegL, EndL, BegL2, EndL2, P, P2, Pk : TPtr;
  Value : Real;
  i : byte;
{ Вывод первого списка }
procedure OutputList(k:byte);
begin
  P:=BegL;
  i:=0;
  while (i<k) and (P<>nil) do
  begin
    writeln('Value= ',P^.Inf:6:2);
    P:=P^.Link;
    i:=i+1;
  end;
end;
{ Вывод второго списка }
procedure OutputList2(k:byte);
begin
  P:=BegL2;
  i:=0;
  while (i<k) and (P<>nil) do
  begin
    writeln('Value= ',P^.Inf:6:2);
    P:=P^.Link;
    i:=i+1;
  end;
end;
begin
  clrscr;
{ Создание первого списка }
  BegL := nil;
  EndL := nil;
  for i:=1 to k do
  begin
    New(P);
    P^.Inf:=i;
    P^.Link:=nil;
    if EndL = nil then
      BegL := P
    else EndL^.Link := P;
    EndL:=P;
  end;
{ Создание второго списка }
  BegL2 := nil;
  EndL2 := nil;
  P2:=BegL;
  for i:=1 to k do
  begin
    New(P);
    P^.Inf:=P2^.Inf;
    if EndL2=nil then EndL2:=P
    else
    begin
      P^.Link:=Pk;
      BegL2:=P;
    end;
    EndL2:=P;
    P2:=P2^.Link;
    Pk:=P;
  end;
{ Вывод списков }
  writeln('Первоначальный список:');
  OutputList(k);
  writeln;
  writeln('Список с обратным порядком элементов:');
  OutputList2(k);
{ Удаление первого списка }
 P:=BegL;
 for i:=1 to k do
 begin
  P:=P^.Link;
  Dispose(BegL);
  BegL:=P;
 end;

{ Удаление второго списка }
 P2:=BegL2;
 for i:=1 to k do
 begin
  P2:=P2^.Link;
  Dispose(BegL2);
  BegL2:=P2;
 end;

  readln;
end.