создание формата

[ROMA2PVT]

скачала надо свой тип создать в

type { секция объявления типов }

[_-Re@l-_]

так я так и делаю =)

вот напиши прогу как ты предлагаешь

[ROMA2PVT]

Program bd;
Uses
     CRT;
type
     Svedeniya=Record
     FIO:string[11];
     Data:String[10];
     Machi,Peredachi,NARUSH,Matchi:string[9];
    end;
    Var
    f:file of Svedeniya;
    Teh:array[1..100] of Svedeniya;
    Num,i,Sel,x,v,err,numer,incode:integer;
Procedure Zapis;
          Begin
               writeln;
               writeln('                              <<<Запись файла>>> ');
               writeln;
               Assign(F,'C:\Learn\Language\Work\2pvt\2-grup\vasil\1.dat');
               rewrite(f);
               For i:=1 to Num do
               write(F,Teh[i]);
               Close(F);
               writeln('Файл был успешно создан, для выхода в меню нажмите <ENTER>');
               end;
Procedure Vvod;
          begin
               Clrscr;
                      writeln;
                         Write('                        <<<ВВОД ЗАПИСЕЙ>>> ');
                         writeln;
                         repeat
                         Write('Введите количество записей: ');
                         {$I-}
                            readln(num);
                            {$I+}
                            incode:=IOresult;
                            if incode<>0 then
                            writeln('                            НЕВЕРНО!Повторите ввод');
                            Until incode=0;
                         for i:=1 to Num do
                         begin
                         writeln;
                         writeln('Запись',i,'-я');
                         With Teh[i] do
                         begin
                         repeat
                         Write('Введите ФИО игрока: ');
                         readln(FIO);
                         val(FIO,v,err);
                         if v<>0 then
                         writeln('Неверно!Повторите ввод:');
                         Until v=0;
                         Write('Введите дату рождения игрока: ');
                         readln(data);
                         repeat
                         Write('Введите число забитых мячей: ');
                         readln(Machi);
                         val(Machi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите кол-во передач: ');
                         readln(Peredachi);
                         val(Peredachi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Заработанное штрафное время: ');
                         readln(NARUSH);
                         val(NARUSH,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Количество проведённых матчей: ');
                         readln(Matchi);
                         val(Matchi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
         end;
       end;
    Zapis;
    Readkey;
  End;

Вот то что первое попалось под руку то и кинул тебе.Создал свой тип как обычно и делают для таких заданий и дальше кодишь всё что необходимо.

[ROMA2PVT]

http://pascal.guti.ru/files.html
Вот довольно хорошая статейка про файлы (запись,чтение и т.д. и т.п.).

[_-Re@l-_]

как я понимаю, программа под Delphi?

[ROMA2PVT]

Нет написана на паскале.

[_-Re@l-_]

Так ведь функция val делфивская, да и я пробовал написать свою прогу такого же типа как и твоя ,но пишет типа 'Cannot Read or write variables of this type" либо "type mismatch"

[ROMA2PVT]

Delfi очень схож с паскалем.Инфу почитайте.Многие функции совпадают.И где ты прогу пишешь? В Delfi или паскале?

[_-Re@l-_]

в turbo pascal

[_-Re@l-_]

между делом:ты случайно не знаешь, как в turbo pascal выводить изображения из файла?