Проверте ошибки в задачке по паскалю

uses crt;
 
type
  ptr = ^item;
  item = record
    words:  string;
    next:   ptr;
  end;
  
var
  head, 
  current,
  newptr,         // Показчик на елемент що вводиться.
  last,           // Показчик на останній елемент.
  prev:   ptr; 
  i:      integer;
  key:    char;   // Код дії над елементом списку.
  str, st:    string; // Елемент що вводиться.
  search: boolean;// Результат пошуку.
  
procedure Create; // Створення одноелементного списку.
  begin
    head := newptr;
    head^.next := nil;
  end;
  
procedure InsBeg;
  begin
    newptr^.next := head;
    head := newptr;
  end;
  
procedure SearchIns;
  begin
    current := head;
    repeat
      prev := current;
      current := current^.next;
      if current = nil then
        search := true
      else
        search := current^.words >= str;
    until search;
  end;
  
procedure InsMid;
  begin
    prev^.next := newptr;
    newptr^.next := current;
  end;
  
procedure Insert;
var k:byte;
  begin
    write('input element: ');
    readln(st);
    k:=pos(' ', st);
    while k<>0 do begin
      str:=copy (st, 1, k-1);
      delete (st, 1, k);
    New(newptr);
    newptr^.words := str;
    if head = nil then
      Create
    else
      if st <= head^.words then
        InsBeg
      else begin
        SearchIns;
        InsMid;
      end;
      end;
  end;
  
procedure DelFirst;
  begin
    head := current^.next;
    Dispose(current);
  end;
  
function SearchPlace: boolean;
  begin
    repeat
      prev := current;
      current := current^.next;
    until(current^.words = str) or (current^.next = nil);
    Search:= current^.words = str;
  end;
  
  procedure Mid;
  begin
    prev^.next := current^.next;
    Dispose(current);
  end;
  
procedure povt;
  begin
   if head = nil then begin
      writeln('List empty. Press enter.');
      readln;
    end else begin
      writeln('input value');
      readln(str);
      current := head;
      i:=1;
      while current^.words = str do 
      begin
      i:=i+1;
      end;
      if SearchPlace then Mid
        else begin
          write(str, ' not found in list');
          readln;
        end;
      end;
  end;
  
procedure OutList;
  begin
    current := head;
    if current = nil then
      writeln('List is empty.')
    else begin
      writeln('output list:');
      repeat
        write(current^.words, ' ');
        current := current^.next;
      until current = nil;
    end;
    writeln;
  end;  
  
begin
  head := nil;
  ClrScr;
  repeat
    outlist;
    writeln;
    writeln;
    writeln('1-vvod, d-povtor, q-vyhod');
    key := readkey;
    case key of
      'i': insert;
      'd': povt;
    end;
  until key = 'q';
end.