Заполнение бинарного файла.

[polarity]

program six;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var    group,i, j, k1 :integer;
                  memo:string;
                     f:file;

procedure input(var f:file);
var l:byte;
 begin
  write('group:');
  readln(group);
  write('memo:');
  readln(memo); {считываем значения}
  l:=length(memo); {смотрим длину memo}
  blockwrite(f, group, 4); {записываем}
  blockwrite(f, l, 1);
  blockwrite(f, memo, l);
end;

procedure OutPut(var f:File);
var l:Byte;
begin
  reset(F,1);
  while not eof(F) do
   begin
    blockread(F,group,4);
    blockread(F,l,1);
    blockread(F,memo,l);
    writeLn('Gruppa : ',group);
    writeLn('Pole Memo : ',memo);
   end;
  close(F);
end;

procedure output_rus_symbols(var f:file);
var l,k:byte;
 begin
  reset(f,1);
  writeln('Records with Russian symbols:');
  while not EOF(f) do
   begin
    blockread(f,group,4); {считываем значения}
    blockread(f,l,1);
    blockread(f,memo, l);
    k:=0;
    for i:=1 to length(memo) do
     begin
      case memo[i] of
       #128..#175 : inc(k); {смотрим русские ли символы}
       #224..#241 : inc(k);
      end;
     end;
  if length(memo)=k then {если вся строка из русских то выводим}
   begin
    writeln('group:', group);
    writeln('memo:', memo);
   end;
 end;
close(f);
end;

begin
assignfile(f,'b:\bit.txt');
write('Enter count of records :');
readln(j);
rewrite(f,1);
for k1:=1 to j do
input(f);
Close(f);
OutPut(f);
writeln('RESULT : ');
output_rus_symbols(f);
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

Посмотрите пожалуйста что не так с заполнением бинарного файла. Основная процедура вроде работает. Срочно

[polarity]

up up up
очень срочно, сегодня сдавать...плз

[Serge_Bliznykov]

1) вполне можно было обойтись без записи отдельно длины строки.

2) но, если уж её пишите, так и используйте правильно.

короче.
запись строки в файл:

  blockwrite(f, l, 1);
  blockwrite(f, memo[1], l);

обратите внимание на указание начала строчки! писать с первого символа строки

читать так:

    blockread(F,l,1);
    setlength(memo,l);
    blockread(F,memo[1],l);

удачи.