Дана программа, в нее дописать процедуру и функцию(программа частично на чешском)

begin
  s := novy_seznam;
  uloz(s);
  nacti(f);
  zadani(s);
  vypis(s);
 
  { Здесь должна быть процедура или функция
    Tady pouzijete vami vytvorenou funkci nebo proceduru (funkce nebo procedury).
  }
 
  vymazani(s);
 
 
 
  Readln
end.

interface
 
type
  uprvek = ^prvek;
  pdata = Integer;
 
  prvek = record
    data: pdata;
    dalsi: uprvek;
  end;
 
  seznam = record
    zacatek: uprvek;
    konec: uprvek;
  end;
 
implementation
 
end.

unit funkce;
 
interface
 
uses
  data;
 
function novy_seznam: seznam;
procedure vloz_na_zacatek(var sz: seznam; dt: pdata);
procedure vypis_prvek(p: uprvek);
procedure zadani(var sz: seznam);
procedure vypis(sz: seznam);
 
function hledej_hod(sz: seznam; dt: pdata): uprvek;
function hledej_uk(sz: seznam; up: uprvek): uprvek;
procedure smaz(var sz: seznam; up: uprvek);
 
procedure vloz_na_konec(var sz: seznam; dt: pdata);
procedure vymazani(var sz: seznam);
 
implementation
 
function novy_seznam: seznam;  {Vynuluje polozky seznamu (ale neodstranuje prvky, pokud tam byly!).
Сброс меню каталога (но не удалять элементы, если там были!).}
begin
  novy_seznam.zacatek := nil;
  novy_seznam.konec := nil;
end;
 
procedure vloz_na_zacatek(var sz: seznam; dt: pdata);  {Vlozi prvek na zacatek seznamu a ulozi do nej data dt.
Вставка элементов в верхнюю часть списка, чтобы хранить данные }
var p: uprvek;
begin
  new(p);
  p^.data := dt;
  p^.dalsi := sz.zacatek;
  sz.zacatek := p;
  if p^.dalsi = nil then sz.konec := p;
end;
 
procedure vypis_prvek(p: uprvek);  {Vypise jeden prvek. Выписывает один элемент. }
begin
  Writeln('-----------------------');
  Writeln(p^.data);
end;
 
procedure zadani(var sz: seznam); {Pta se opakovane na data a vklada do seznamu nove prvky s temito daty.
Запрашивает повторно данные и вставляет в каталог новых функций с этими данными }
var odp: String;
data: Integer;
begin
  repeat
  begin
    Write('Zadej data pro prvek: ');
    Readln(data);
    vloz_na_konec(sz, data);
    Write('Zadat dalsi prvek? (ano/ne): ');
    Readln(odp);
  end
  until odp <> 'ano';
end;
 
procedure vypis(sz: seznam);  {Vypise vsechny prvky ze seznamu. Выписывает все элементы из каталога. }
var p: uprvek;
begin
  p := sz.zacatek;
  while p <> nil do
  begin
    vypis_prvek(p);
    p := p^.dalsi;
  end;
end;
 
function hledej_hod(sz: seznam; dt: pdata): uprvek; {Najde prvek, ktery ma v polozce .data hodnotu dt.
Найдет элемент, который имеет значение .значение данных dt }
var p: uprvek;
begin
  hledej_hod := nil;
  p := sz.zacatek;
  while p <> nil do
  begin
    if p^.data = dt then
    begin
      hledej_hod := p;
      p := nil;
    end
    else p := p^.dalsi;
  end;
end;
 
function hledej_uk(sz: seznam; up: uprvek): uprvek; {Najde prvek, ktery ma v polozce .dalsi ukazatel up.
найдет элемент, который имеет значение .следующий указатель}
var p: uprvek;
begin
  hledej_uk := nil;
  p := sz.zacatek;
  while p <> nil do
  begin
    if p^.dalsi = up then
    begin
      hledej_uk := p;
      p := nil;
    end
    else p := p^.dalsi;
  end;
end;
 
procedure smaz(var sz: seznam; up: uprvek);  {Vymaze ze seznamu prvek na ktery ukazuje up.
Сотрет из каталога элемент, на который укажешь}
var p: uprvek;
begin
  if up <> nil then
  begin
    p := hledej_uk(sz, up);
    if p <> nil then
    begin
      p^.dalsi := up^.dalsi;
      dispose(up);
      if p^.dalsi = nil then sz.konec := p;
    end
    else
    begin
      sz.zacatek := up^.dalsi;
      dispose(up);
    end;
  end;
end;
 
procedure vloz_na_konec(var sz: seznam; dt: pdata); {Vlozi novy prvek na konec seznamu a ulozi do nej data dt.
Вложит новый элемент в конец каталога и сохранит в него данные }
var p: uprvek;
begin
  new(p);
  p^.data := dt;
  p^.dalsi := nil;
  if sz.zacatek = nil then sz.zacatek := p
                      else sz.konec^.dalsi := p;
  sz.konec := p;
end;
 
procedure vymazani(var sz: seznam); {Vyprazdni seznam. Очистит каталог}
var p, q: uprvek;
begin
  p := sz.zacatek;
  while p <> nil do
  begin
    q := p;
    p := p^.dalsi;
    smaz(sz, q);
  end;
end;
 
end.

unit data;
 
interface
 
type
  uprvek = ^prvek;
  pdata = Integer;
 
  prvek = record
    data: pdata;
    dalsi: uprvek;
  end;
 
  seznam = record
    zacatek: uprvek;
    konec: uprvek;
  end;
 
implementation
 
end.

program  project1;
 
uses data, funkce;
 
var s: seznam;
 
begin
  s := novy_seznam;
  zadani(s);
  vypis(s);
 
  {
    Tady pouzijete vami vytvorenou funkci nebo proceduru (funkce nebo procedury).
  Здесь используйте созданную вами процеду (функцию или процедуру)}
 
  vymazani(s);
 
  Readln;
end.