Создать файл содержащий ассортимент товара(обувь). Структура записи:артикул,наименование,количество,стоимость. Количество записей произвольно.Артикул таков:W- женская обувь, M-мужская, T-детская — Pascal(Паскаль)

program laba_9;
uses crt;
type zap=record
         artikul:string;
         name:string;
         kol:integer;
         st:integer;
         end;
assortiment= file of zap;
var f:assortiment;
    k:integer;
    c:char;
    x:zap;
begin
clrscr;
assign(f,'assortiment');
rewrite(f);
writeln('vvedite dannye, konec - Esc');
k:=1;
repeat
writeln('vvedute tovar ',k);
write(' artikul: ');readln(x.artikul);
write(' name: ');readln(x.name);
write(' kol: ');readln(x.kol);
write(' st: ');readln(x.st);
write(f,x);
c:=readkey;
until c=#27;
clrscr;
writeln('v file ',k,' zapiseu');
reset(f);
while not eof(f) do
  begin
   read(f,x);
   writeln(x.artikul,'  ',x.name,'  ',x.kol,'  ',x.st);
  end;
writeln('konec file');
close(f);
readln
end.