Помогите изменить программу!, Списки! Опции

[Greck]

Помогите пожалуйста по образцу этой программы выполнить следующие задания :
1. Написать программу поиска максимального элемента в линейном однонаправленном списке.
2. Написать программу поиска минимального элемента в линейном однонаправленном списке
Либо если незатруднит написать с нуля новую программу!

{
       Spiski
}

program list;
uses crt;
type
   typeofelement = integer;
   spisok = ^knot;
   knot = record
               data: typeofelement; { Tip dannyh }
               next: spisok;        { Sledujushii element }
   end;
var
  esim: spisok; { Pervyi element }
  p:    spisok; { Ukazatel }
  pp:   spisok; { Ukazatel dlja vnesenija elementa v centr }
  pnew: spisok;
  key:  integer;

{ dobavljaet pervyi element }
procedure add_first;
begin
    clrscr;
    esim:=nil; { Ochishhaem pervyi element }
    new(p);    { Vydeljaem pamjat }
    writeln('Vvedite element:');
    readln(p^.data); { Zapolnjaem element }
    p^.next:=nil; { Ochishhaem sledujushhii element }
    esim:=p;
    writeln('Element dobavlen!');
    readln;
end;

{ vyvodit spisok na ekran }
procedure show;
begin
    clrscr;
    { Esli pervyi pust, to vyvodim soobshhenie }
    if esim = nil then
       writeln('Spisok pust!')
    else
    { Esli ne pust, to vyvodim spisok na ekran }
    begin
         writeln('Spisok:');
         p := esim;
         while p <> nil do
         begin
              writeln(p^.data);
              p := p^.next;
         end;
    end;
    readln;
end;

{ dobavljaet ocherednoi element v konec }
procedure add_to_end;
begin
    clrscr;
    new(p);
    writeln('Vvedite element:');
    readln(p^.data);
    p^.next:=nil;  { Sledujushii element - NIL }
    esim^.next:=p;
    writeln('Element dobavlen!');
    readln;
end;

{ dobavljaet ocherednoi element v nachalo }
procedure add_to_begin;
begin
    clrscr;
    new(p);
    writeln('Vvedite element:');
    readln(p^.data);
    p^.next:=esim;
    esim:=p;
    writeln('Element dobavlen!');
    readln;
end;

{ menu }
procedure menu;
begin
    writeln('1 - Dobavlenie pervogo elementa');
    writeln('2 - Dobavlenie ocherednogo elementa v konec');
    writeln('3 - Dobavlenie ocherednogo elementa v nachalo');
    writeln('4 - Vyvod spiska na ekran');
    writeln('0 - Vyhod');
end;

{ glavnaja programma }
begin
    repeat
          clrscr;
          menu;
          readln(key);
          case key of
               1: add_first;     { Dobavit pervyi element    }
               2: add_to_end;    { Dobavit element v konec   }
               3: add_to_begin;  { Dobavit element v nachalo }
               4: show;          { Vovesti spisok na ekran   }
          end;
    until
         key = 0;
end.

Заранее спасибо!!!!!!!!!!!

Сообщение отредактировано: volvo - 4.11.2006 0:11