gistfile1.pas

type kuh = record
    kuhar : string;
    jelo : string;
    ocjena : integer;
end;

var f : file of kuh;
var i : integer;
var d : kuh;

begin
    assign(f, 'kuh.bin');
    rewrite(f);
    for i := 1 to 5 do
    begin
        read(d.kuhar);
        read(d.jelo);
        read(d.ocjena);
        write(f, d);
    end;
    close(f);
end.