Контрольная работа: Автоматизований облік власників автотранспорту

gotoxy (8,1);

writeln ('VODITEL-', p);

write ('Vvedi F.I.O voditela – '); readln(fio);

write ('Vvedi avto na kotorom on ezdiet – '); readln(av);

write ('Vvedi seriu i nimer pasporta voditela – '); readln(pas);

write (' Vvedi adres progivania – '); readln(mg);

seek (f, p-1);

write (f, bas);

end;

close(f);

end;

end;

{…………………………………………………}

procedure udal;

var s:string; i, j:integer;

begin

if FSearch ('po', 'd:\')='' then

begin

window (1,1,40,25);

textbackground(0);

clrscr;

pamka (10,10,35,15);

gotoxy (16,11);

textcolor(132);

writeln ('BASA NE SOZDANA');

textcolor(7);

end

else

begin