[Tovarisch]

Извините
сразу типы укажу

Код:

 rec: array of Bylet;
  buf: array[0..3] of string;
  f: text;
  fname,s,c:string;
  i,j,k:integer;