Как создать файл и изменить его содержимое

Program psn;
uses Crt;
type base=record
vladelec:string[15];
marka:string[20];
nomer:string[20];
cvet:string[20];
end;
var      c:file of base;
zn,filename:string;
k:integer;
label 11;
  {-----------------------------------------------------------}
procedure Creatfile;
begin
writeln('base');
readln(filename);
assign(c,filename);
rewrite(c);
end;
  {-----------------------------------------------------------}
procedure Addrecord;
var rez:integer; ch:char;
begin
while rez<>1 do
begin
writeln('base');
readln(filename);
assign(c,filename);
if rez<>0 then
begin
writeln('Проверьте правильность имени файла!');
writeln('Будет ли повторное задание имени файла?(Y/N)');
readln(ch);
if (ch='n') or (ch='N') then halt (0);
end;
end;
seek(c,filesize(c));
end;
   {==========================================================}
procedure Inputfile;
var st:base;
k:char;
begin
repeat
writeln('Введите новые данные  : ');
write('Хозяин : ');                readln(st.vladelec);
write('марка машины:');                     readln(st.marka);
write('номер машины: ');                   readln(st.nomer);
write('цвет: ');                    readln(st.cvet);
write(c,st);
write(' вводить новые данные  ? (Y/N)>');readln(k);
writeln;
until(k='n') or (k='N');
close(c);
end;
    {=========================================================}
procedure redzap;
var
st:base;
filename,str:string;
vladelec:string[15];
marka2:string[20];
nomer2:string[20];
cvet:string[20];
x:integer;
begin
writeln('base:');
readln(filename);
assign(c,filename);
reset(c);
with st do
begin write('Введите фамилию : ');readln(str);
x:=0;
while not eof(c) do
begin
read(c,st);
if st.vladelec=str then
begin
writeln('Введите новые данные : ');
write('хозяин: ');                   readln(st.vladelec);
write('марка машины:');                  readln(st.marka);
write('номер машины:');                  readln(st.nomer);
write('цвет: ');                  readln(st.cvet);
vladelec:=vladelec;      marka:=marka;
cvet:=cvet;
Nomer:=Nomer;
seek(c,filepos(c)-1);
write(c,st); x:=1;
end; end;
close(c);
end;
if x=0 then  begin writeln('Записи с такой фамилией нет!');readln end;
end;
  {==============================================================}
procedure Openfile;
var rez:integer;ch:char;
begin
while rez<>0 do
begin
writeln('base');
readln(filename);
assign(c,filename);
reset(c);
if rez<>1 then
begin
writeln('Проверьте правильность имени файла!');
writeln('Будет ли повторное задание имени файла ? (Y/N)');
readln(ch);
if (ch='n') or (ch='N') then halt (0);
end;
end;
end;
     {============================================================}
procedure Outputfile;
var st:base;k:char;
begin
writeln('Хотите посмотреть данные  ? (Y/N)');
readln(k);
if (k='y') or (k='Y') then
while not eof(c) do
begin
read(c,st); clrscr;
writeln(' хозяин:',st.vladelec);
writeln('марка :',st.marka);
writeln('номер :',st.nomer);
writeln('цвет:',st.cvet);
writeln('Для продолжения нажмите (enter)');
readln;
end;
close(c);
end;
       {========================================================}
procedure Clearfile;
var st:base;
studtoout:string[20];
fo:file of base;
begin
writeln('Задайте имя файла,из которого удаляются элементы');
readln(filename);
assign(c,filename);reset(c);
assign(fo,'newfile.dat');rewrite(fo);
writeln('Задайте фамилию , запись о котором удаляется');
readln(studtoout);
while not eof(c) do
begin
read(c,st);
if st.vladelec<>studtoout then write(fo,st);
end;
close(c);close(fo);
erase(c);
rename(fo,filename);
end;
{ОСНОВНАЯ ЧАСТЬ ПРОГРАММЫ}
Begin  11:clrscr;
writeln('     МЕНЮ:');
writeln('1:Создание файла');
writeln('2:Добавление записи в файл');
writeln('3:Корректировка записи');
writeln('4:Просмотр файла');
writeln('5:Удаление записи из файла');
writeln('6:Выход из программы');
readln(k);
case k of 1: begin Creatfile; Inputfile end;
2: begin Addrecord; Inputfile end;
3: redzap;
4: begin Openfile; Outputfile end;
5: Clearfile;
6: Halt;
else writeln('Ошибка.Повторите номер режима.')
end;
goto 11;
End.