Задача 6. Типизированные файлыСоставить программу, в которой создается и обрабатывается типизированный файл.

Доброго времени суток.

Какая-то каша у вас написана. Если в теме стоит типизированный файл, то почему файловая переменная t объявляется как текст? Типизированный файл сначала надо создать. Наример, так

type
TRadioStation = record
Name : String[20];
Frq : Real;
Time : Integer;
Reclama : Integer;
Price : Real
end;

var
B : TRadioStation;
F : file of TRadioStation;
i, n : Integer;

begin
ClrScr;
Assign(F, 'Station.dat');
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then Rewrite(f) {файла нет - создадим}
else Seek(F, FileSize(F)); {файл есть - будем добавлять записи}

Write('Введите число записей : ');
ReadLn(n);
for i:=1 to n do begin
Write('Название станции : ');
ReadLn(B.Name);
Write('Частота : ');
ReadLn(B.Frq);
Write('Длительность рекламы : ');
ReadLn(B.Time);
Write('Время рекламы : ');
ReadLn(B.Reclama);
Write('Стоимость минуты : ');
ReadLn(B.Price);
Write(F, B);
end;

Close(F);
end.

А вот теперь можно выполнять чтение данных из этого файла в массив программы обработки.

Assign(F, 'Station.dat');
Reset(F);
n := FileSize(F); {определяем количество записей}
for i:=1 to n do Read(F, A[ i ]); {читаем данные из типизированного файла в массив}

А дальше выполняете свою обработку. Части создания и обработки можно объединить. В этом случае при старте программы будет выводиться сообщение о числе записей. Если указать какое-то число, то выполнится цикл добавления записей в файл и затем обработка файла, а если в ответ на запрос о числе записей ввести 0, то выполнится только обработка файла.

Удачи!

На каком языке и какие условия компиляционного алгоритма?? ? Что-т непоннятнннооо... =_)