ai biết về pascal giúp mình với mình đang cần gấp mình còn thiếu mọt ít mà mình làm mái mà ko được

[nguyenquyhuong]

nhập không quá 50 sản phảm lưu vào file san pham.dat
tính thành tiền= don gia * so luong
đua ra danh sách sản phẩm có thành liền <10000000.
mình đang còn thiếu mối ai biết giúp mình nhé thanks nhé
program DANH_SACH_CAC_SAN_PHAM;
uses crt;
var
f:text;
tensanpham:string[10];
dongia,soluong:integer;
tiep:char;
loi:byte;
Begin
writeln('Danh Sach Cac Tuyen Pho Luu Vao SANPHAM.DAT');
writeln('-------');
writeln;
assign(f,'SANPHAM.DAT');
rewrite(f);
Write(f,'Ten san pham Don gia So luong Thanh tien');
tiep:='C';
while upcase(tiep) <>'K' do
begin
writeln(f);
write(' Ten san pham la: '); readln(tensanpham);
write(f,tensanpham:10);
repeat
{$I-}
write(' Don gia la : '); readln(dongia);
{$I+}
loi:=Ioresult;
if loi<>0 then writeln('Ban Nhap Sai Roi , Ban Nhap Lai Di:') else
write(f,' ',dongia:20);
until Loi=0;
repeat
{$I-}
write(' So luong la : '); readln(soluong);
{$I+}
loi:=Ioresult;
if Loi<>0 then writeln('Ban Nhap Sai Roi , Ban Nhap Lai Di:') else
write(f,' ',soluong:20);
until Loi=0;
Write('Ban Co Tiep Tuc Nua ko ? (C/k) ');
Repeat tiep:= readkey; Until tiep in ['C','c','K','k',#27] ;
writeln
end;
Close(f);
writeln;
writeln(' SAN PHAM CO THANH TIEN < 10000000 ');
writeln('------------------------');
writeln(' Ten san pham Don gia So luong Thanh tien ');
reset(f);
readln(f);
while not EOF(f) do
begin
readln(f,tensanpham,dongia,soluong);
if ((dongia*soluong)<10000000)then
writeln(tensanpham:15,dongia:10,soluong:10,(dongia *soluong):20);
end;
Close(f);
Write(' Bam Phim <Enter> De Ket Thuc ');
readln ;
End.
:bawling:

[hlong001]

mìh k hiểu yêu cầu của bạn.Có phải bạn cần đưa danh sách sản phẩm có thành tiền <10000000 vào tệp sanpham.dat hay là đưa kết quả ra màn hình?[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[hoangnam.vn08]

Lần sau bạn post code nên để trong tab [Code"] [/Code"] (Không có dấu ")
Ví dụ như :

Program VD;
Begin
  Writeln(' Post code the nay');
End;