Процедура ввода

 
 uses crt;
type
    svedeniya = record
     name_org  : string;
     adres     : string;
     fio       : string;
     bank      : string;
     obuom     : string;
    end;
var
    DataFile : file of string;
    teh : array [1..10] of Svedeniya;
    i,n : integer;
 
   procedure vvod;
    var teh : svedeniya;
     begin
      clrscr;
       writeln('              Ввод данных     ');
       repeat
       write('  Название организации  : ');    readln(teh.name_org);
       write('  Адрес     : ');    readln(teh.adres);
       write('  ФИО руководителя     : ');    readln(teh.fio);
       write('  Банковский реквизит   : ');    readln(teh.bank);
       write('  Объем*           : ');    readln(teh.obuom);
       inc(n);
       until (yes_or_no('Будете еще вводить данные?(y/n)')=false);
     end;

procedure InTab;
var ch:char;
    fname:string;
    i:integer;
    f:file of rec;
begin
ClrScr;
n:=0;
Writeln(' Vvod: ');
repeat
 n:=n+1;
 Writeln(' Name: ');
 Readln(teh[i].name_org);
 Write(' Adress: ');
 Readln(teh[i].adress);
 Write(' FIO: ');
 Readln(teh[i].fio);
 Write(' Bank: ');
 Readln(teh[i].bank);
 Write(' Obuom: ');
 Readln(teh[i].obuom);
 Writeln('Prodolchat?(y/n)');
until ch in ['n','N'];
Writeln('Save?(y/n)');
ch:=ReadKey;
if ch in ['n','N'] then
 exit;
Writelln('Vvedite name: ');
Readln(fname);
Assign(f,fname);
{$I-}
Rewrite(f);
{$I+}
for i:=1 to n do
 Write(f,teh[i]);
 close(f);
end;