Turbo Pascal. 2 задачи на файлы

[Кэмерон]

Привет ребята, очень нужна помощь, просто паника... 2 задачи на файлы, ну вообще никак не могу понять... Буду безумно благодарна, если сможете помочь

1) В текстовом файле хранится одномерный массив целых чисел. Заменить в этом массиве числа, кратные 3-м на нули и результат записать в новый файл.

2) Компоненты типизированного файла - массивы, состоящие из 10-ти вещественных чисел. Вывести на экран максимальные элементы всех массивов.

[alex_fcsm]

uses crt;
var i:integer;
    f,f1:text;
begin
assign(f,'c:\1.txt');
reset(f);
assign(f1,'c:\11.txt');
rewrite(f1);
while not(eof(f)) do
 begin
   read(f,i);
   if i mod 3=0 then write(f1,0) else write(f1,i);
   write(f1,' ');
 end;
 close(f);
 close(f1);
 end.

[Sazary]

uses crt;
var
fin,fout : text;
n : integer;

begin
clrscr;
assign(fin,'mas.txt');
assign(fout,'mas-out.txt');
{$I-}
reset(fin);
{$I+}
if IOResult <> 0 then exit;

rewrite(fout);
while not eof(fin) do
 begin
 read(fin,n);
 if n mod 3 = 0 then write(fout,0,' ')
 else write(fout,n,' ');
 end;

close(fin);
close(fout);
readln;
end.

ps Опять опоздал (

[alex_fcsm]

uses crt;
var i,j,max:integer;
    f,f1:file of integer;
begin
assign(f,'c:\1.int');
rewrite(f);
for i:=1 to 5 do
 for j:=1 to 10 do
  write(f,random(100));
close(f);
assign(f,'c:\1.int');
reset(f);
assign(f1,'c:\11.int');
rewrite(f1);
while not(eof(f)) do
 begin
   read(f,max);
   i:=2;
   while i<=10 do
    begin
     read(f,j);
     if j>max then max:=j;
     inc(i);
    end;
    write(f1,max);
 end;
 close(f);
 close(f1);
 end.

[Кэмерон]

во 2-ой задаче говорится о типизированных файлах, я просто ещё не очень понимаю, как просматривать каждый массив в файле по очереди и выводить его max элемент ((

[Stilet]

Ну примерно так:

uses crt;
type arr=array[1..10] of integer;
var i,j,max:integer;
    f,f1:file of arr;a:arr;
begin
assign(f,'c:\1.int');
rewrite(f);
for i:=1 to 5 do begin
 for j:=1 to 10 do begin
  {Допустим заполнили массив}
 end;
 write(f,a);
end;
close(f);

reset(f);
while not(eof(f)) do
 begin
   read(f,a);
   {Прочитали первый массив 10-и элементов, уже работая с прочитанным массивом находим его МАКС}
 end;
 close(f);
 end.

P.S. Этот аватарчик - фотка автора? Если да то - Cool!

[Татька]

Ребят помогите пожалуйста...

11 Создать типизированный файл menu.dat, содержащий блюда меню:
- название блюда;
- вес в граммах;
- цена;
- категория (десерт, горячее, закуска);
а) обеспечить просмотр содержимого файла в табличной форме;
б) обеспечить поиск блюда по его названию;
в) обеспечить возможность корректировки записи;
г) выбрать и переписать в другой файл сведения о блюдах заданной категории.