Файлы, записи.

Procedure creat_file;
      Var yes_no:integer;
      begin
           if fFile<>' ' then
             begin fFile:=''; close(F);end;
             clrscr; readln;
             writeln('¢¢¥¤iâì i¬`ï ä*©«ã ');
             readln(fFile);
             assign(F,'D:\fFile.dat');
             {$I-}
             reset(F);
             if IOResult <>0 then ReWrite(F);
             {$I+}
             clrscr;
             repeat
                   write('You want write new information Yes - 1 / No - 2 : ');
                   readln(yes_no);
                   until(yes_no=1) or (yes_no=2);
                   if yes_no=1 then
                   begin
                        seek(f,FileSize(f));
                        repeat
                        clrscr;
                        gotoxy(22,8); WriteLn('‚¢¥¤¨â¥ ä*¬¨«¨î ¨ ¨¬ï áâ㤥*â*:');
      readLn(S.imya);
 
                        gotoxy(22,9);Write('chi zaymayetsya sportom? "yes" or "no"');
   readLn(S.sport);
   if S.sport='yes' then
                        begin
                        gotoxy(22,10);Write('yakim vidom sportu zaymayetsya?');
   ReadLn(S.vidsport);
                        gotoxy(22,12);Write('skilki rokiv? ');
   ReadLn(S.rsport); end  else   begin
   S.vidsport:='---';
   S.rsport:=0;  end;
                        gotoxy(22,13);write('Ÿªã ¬ã§¨ªã á«ãå*ó? ');readln(S.muzik);
                        Write(F,S);
                        gotoxy(22,15);
                        repeat
                              write('¢¢®¤¨â¨ *®¢i §*¯¨á¨ Yes - 1 or No - 2 : ');
                              readln(yes_no);
                              until(yes_no=1) or (yes_no=2);
                              until yes_no=2;
                              End;
                        end;
           Procedure verh;
           Begin
                writeln('____________________________________________________________________');
                writeln('|  i¬`ïÿ ta  &#143;ài§¢¨é¥    | ‘®àâ  | ‚¨¤ ᯮàâã  | ‘ª.ƒ®¤   | Œã§¨ª* |');
                 writeln('--------------------------------------------------------------------');
                end;