типизированные файлы (паскаль)

[Rfn.if]

Определить файл f1 как типизированный файл из символов. Подсчитать, сколько в нем встречается семерок, а также определить и вывести в файл f2 номера позиций этих семерок.

program lr13z10;
const name1 = 'new';
 var
 s:char;
  name: string;
  f1: file of char;
  f2: file of integer;
  c1,c2: char;
  i:longint;
  k,t:integer;
begin
 writeln ('введите имя файла');
 readln (name);
 assign (f1, name);
 assign (f2, name1);
  rewrite (f1);
while not eof do
 begin

 readln (c1);
 write (f1,c1);
 end;
 close (f1);
 reset (f1);
 rewrite (f2);
 k:=0;
 i:=0;
 while i<>t do
  begin
   read (f1,s);
   if (s ='7') then k:=k+1; write (f2, i);
   inc (i);
   end;
  close (f1);
  close (f2);
   if k=0 then write ('в данном файле нет 7')
   else write ('здесь ',k,' 7');
   end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Ваш код очень похож на правильный, но в нём есть ряд ошибок.
например, если Вы создаёте файл file of Integer
а i : LongInt
то нельзя записать i в этот файл (у них типы разные)

и ещё, если Вы в одну строчку после if .. then записываете несколько операторов, то это не означает, что они все выполнятся при выполнении условия! Только первый из них. А второй (и все остальные) будут выполняться всегда!

if (s ='7') then k:=k+1; write (f2, i);

для объединения операторов нужно использовать begin ... end

Посмотрите, вот, примерно так можно:

program lr13z10;
const name1 = 'new';
var
  name: string;
  f1: file of char;
  f2: file of integer;
  c1: char;
  i: integer;
  k: integer;
begin
  writeln('введите имя файла');
  readln(name);
  assign(f1, name);
  assign(f2, name1);
  rewrite(f1);
  while not eof do
  begin
    read(c1);
    write(f1, c1);
  end;
  close(f1);
  reset(f1);
  rewrite(f2);
  k := 0;
  i := 0;
  while Not Eof(f1) do
  begin
    inc(i);
    read(f1, c1);
    if (c1 = '7') then begin
       k := k + 1;
       write(f2, i);
    end;
  end;
  close(f1);
  close(f2);
  if k = 0 then write('в данном файле нет 7')
  else write('здесь ', k, ' 7');
  readln; {ожидаем нажатия Enter}
end.

p.s. потрясён таким циклом для ввода: while not eof do begin .. end
Давненько не встречал такого. А, если не секрет, где Вы такому научились?
И Вы умеете завершать ввод данных при использовании такой конструкции?!