Посмотрите ошибки программы!!!

[Alexsey1991]

Создать базу данных склад!!!


Program z35;
uses crt;
type
sklad=record
name:string[15];
kol:integer;
end;
var
n,i,kz:integer;
f:file of sklad;
ved:array[1..100] of sklad;
isk:string;
found:boolean;
begin
kz:=0;
assign(f,'sklad.dat');
if fileexists('sklad.dat') then
begin
reset(f);
while not eof(f) do
begin
kz:=kz+1;
read(f,ved[kz]);
end;
close(f);
end;
repeat
cls;
writeln('---------------------------------------------');
writeln('1.Udality izdelie');
writeln('2.Prosmotr zapisey');
writeln('3.Obnovity');
writeln('0.VYHOD');
writeln('---------------------------------------------');
writeln('Vedite nomer vybronogo vida raboty: ');readln(n);
cls;
case n of
0: break;
1: begin
write('Vedite nazvanie udaliaemogo izdelia');readln(isk);
found:=false;
for i:=1 to kz do
if ved[i].name=isk then
begin
found:=true;
for n:=i to kz-1 do
begin
ved[n].name := ved[n+1].name;
ved[n].kol := ved[n+1].kol;
end;
kz:=kz-1;
end;
if found then
writeln('Udalenie uspeshno')
else
writeln('Takogo izdelia net');
end;
2: begin
for i:=1 to kz do
writeln(ved[i].name,' ',ved[i].kol);
end;
3: begin
writeln('vedite nazvanie izmeniaemogo izdelia');
found:=false;
for i:=1 to kz do
if ved[i].name=isk then
begin
found:=true;
writeln('vedi nazvanie izdelia');
readln(ved[i].name);
writeln('vedite kolichestvo izdelia');
readln(ved[i].kol);
end;
if not found then
begin
writeln('takoy ryby net');
writeln('hotite dobavite novoe izdelie? 1.da 2.Net');
readln(n);
if n=1 then
begin
if kz=100 then
writeln('Baza perepolnena')
else kz:=kz+1;
writeln('vedite nazvanie novogo izdelia');
readln(ved[kz].name);
writeln('vedite kolichestvo izdelia');
readln(ved[kz].kol);
end;
end;
until not(n in [1..3]);
if cancreatefile('sklad.dat') then
begin
rewrite(f);
for i:=1 to kz do
write(f,fish[i]);
close(f);
end;
end.

Пишет ошибку не понятно для меня посмотрите пожалуйста!!!Если найдёте другие ошибки буду не против выслушать!!!!

[Petrovi4]

ICQ - 324-783-266
Помогу быстро, качественно, недорого.

[Serge_Bliznykov]

Alexsey1991,
когда начал исправлять, понял, что Вы код позаимствовали у кого-то, а довести его до ума не хватило желания/времени/знаний..

и, хотя я понимаю, что оказывают медвежью услугу ;(,
ну ладно уж, пользуйтесь моей добротой...

[Alexsey1991]

Я не брал другую работу просто делал по подобию!!!!

пишет модуль dos не найден что делать???

А можно без модуля мы просто модуль ещё не проходили!!!!

[Stilet]

Алексей, ты эту программу в какой среде пишешь то?
А насчет "можно-нельзя" так можешь dos убрать коли мешает, и вместе с тем убери функцию function FileExists(FileName : string) : boolean; и ее вызов в коде.

[Alexsey1991]

Всё разобрался!!!

[Vampoelp]

Полностью разделяю Ваше мнение. В этом что-то есть и идея отличная, согласен с Вами.