Составить программу, создающей файл, состоящий из 10 значений типа int.

program wfile;
uses crt;
 
type
  Tdf=file of integer;
  Tmassiv=array[1..10] of integer;
 
procedure create_file(var xf:Tdf);
var
  i:byte;
  px:Tmassiv;
begin
  assign(xf,'my_file.dat');
  rewrite(xf);
  writeln;
  writeln('Введите 10 целых чисел :');
  for i:=1 to 10 do
    begin
      write('       x[',i,'] = ');
      readln(px[i]);
      write(xf,px[i]);
    end;
  close(xf);
  writeln('  Числа записаны в файл <my_file.dat>');
end;
 
procedure read_file(var xf:Tdf;var xm:Tmassiv);
var i:byte;
begin
  writeln;
  writeln('Чтение из файла :');
  assign(xf,'my_file.dat');
  reset(xf);
    for i:=1 to 10 do
      begin
        read(xf,xm[i]);
        write('   ',xm[i]);
      end;
  close(xf);
  writeln;
end;
 
procedure poisk(var xm:Tmassiv);
var i:byte;
    chislo:integer;
    flag:integer;
begin
  flag:=0;
  write('Введите число ');
  readln(chislo);
  for i:=1 to 10 do
  if chislo=xm[i] then begin
  writeln;
  flag:=1;
  writeln('Заданное с клавиатуры значение есть !!! ');
  end;
  if flag=0 then writeln('Такого числа нет !!!');
end;
 
procedure finish;
begin
  writeln;
  writeln('  Программа работу закончила !');
  write('  Нажмите Enter для выхода ---> ');
  readln;
end;
 
var
  f:Tdf;
  m:Tmassiv;
 
 begin
  clrscr;
  create_file(f);
  read_file(f,m);
  poisk(m);
  finish;
end.