Прибавить ко всем элементам списка максимальный элемент этого списка.

    TYPE
        LINK=^ELEM;
        ELEM=RECORD
             INF: REAL;
             NEXT:LINK
         END;

        VAR
            F,T,P:LINK;
            I,N:INTEGER;
        BEGIN
           WRITELN(‘ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ СПИСКА’);
           READLN(N);
           WRITELN(‘ВВЕДИТЕ ЭЛЕМЕНТЫ СПИСКА’);
{ФОРМИРОВАНИЕ 1-го ЭЛЕМЕНТА}
           NEW(F);
           READLN(F^.INF);
           P:=F;
           {ФОРМИРОВАНИЕ ОСТАЛЬНЫХ ЭЛЕМЕНТОВ}
             FOR I:=2 TO N DO 
                BEGIN
                  NEW(T);
                  READLN(T^.INF);
                  P^.NEXT:=T;
                  P:=T
                END;
                T^.NEXT:=NIL;

TYPE
        LINK=^ELEM;
        ELEM=RECORD
             INF: CHAR;
             NEXT:LINK
         END;
VAR
    P,T,F,F1,T1,U,N,P1:LINK;
    I, N1, K: INTEGER; L:BOOLEAN;
BEGIN
    WRITELN('ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ СПИСКА');
    READLN(N1);
{формирование списка}
    NEW(F);
    P:=F;
    WRITELN ('ВВОДИТЕ СИМВОЛЫ');
    READ(P^.INF);
    FOR  I:=2 TO N1 DO
      BEGIN
       NEW(T);  READ(T^.INF);
       P^.NEXT:=T;  P:=T;
      END;
    T^.NEXT:=NIL;
    P:=F;K:=0;
{проход по списку}
    WHILE  P<>NIL DO
      BEGIN
         L:=TRUE;
{выделение слов}
         WHILE (P^.INF=' ') AND (P<>NIL)  DO P:=P^.NEXT ;
         WHILE (P^.INF<>' ') AND (P<>NIL)  DO
           BEGIN
             IF P^.INF IN ['0'..'9'] THEN L:=FALSE;
             P:=P^.NEXT ;
           END;
         IF L=FALSE  THEN  INC(K);
     END; 
{вывод списка}
   WRITELN('В ИСХОДНОМ СПИСКЕ');
   P:=F;
   WHILE P<>NIL DO
     BEGIN
        WRITE(P^.INF:2);
         P:=P^.NEXT
     END;       
   WRITELN('КОЛИЧЕСТВО СЛОВ,СОДЕРЖАЩИХ ЦИФРЫ',    );
 
 {удаление цифр в начале списка}
    P:=F;  N:=F;
    WHILE (P^.INF IN ['0'..'9']) AND (P<>NIL) DO
      BEGIN
        N:=P^.NEXT; DISPOSE(P); P:=N
      END;
{удаление цифр в середине списка}
    F:=P; N:=P; P:=P^.NEXT;
    WHILE P<>NIL DO
      BEGIN  
        IF (P^.INF IN ['0'..'9']) THEN
         BEGIN 
           N^.NEXT:=P^.NEXT; DISPOSE(P); P:=N^.NEXT; 
         END 
        ELSE 
         BEGIN
           N:=P;   P:=P^.NEXT;
         END;
       END;
{вывод списка}
   WRITELN(' СПИСОК БЕЗ ЦИФР');
   P:=F;
   WHILE P<>NIL DO
     BEGIN
        WRITE(P^.INF:2);
         P:=P^.NEXT
     END;       
 END.

Program xa;
uses
  crt;
Type
  TSpis=^PSpis;
  PSpis=record
          Data:integer;
          next:TSpis
        end;
Procedure print(spis:Tspis);
begin
  While spis<>nil do
  begin
    Write(Spis^.data, ' ');
    Spis:=Spis^.Next
  end
end;
 
var
  Spisok,FirstElem:TSpis;
  max:integer;
  key:char;
begin
  Writeln('VVedite element spiska');
  new(Spisok);
  Spisok^.Next:=nil;
  FirstElem:=Spisok;
  Readln(Spisok^.Data);
  Writeln('nrodoljiTb vvod? No=Esc');
  key:=readkey;
  While key<>#27 do
  begin
    clrscr;
    Writeln('VVedite element spiska');
    New(Spisok^.Next);
    Spisok:=Spisok^.Next;
    Spisok^.Next:=nil;
    Readln(Spisok^.Data);
    Writeln('nrodoljiTb vvod? No=Esc');
    key:=readkey
  end;
  Writeln('spisok do u3menenui');
  Print(FirstElem);
  readkey;
  Spisok:=FirstElem;
  max:=0;
  While Spisok<>nil do
  begin
    if spisok^.data>max then
      max:=Spisok^.Data;
    Spisok:=Spisok^.Next
  end;
  Spisok:=FirstElem;
  While Spisok<>nil do
  begin
    if Spisok^.data<>max then
      inc(Spisok^.Data,Max);
    Spisok:=Spisok^.Next
  end;
  Writeln;
  Writeln('Spisok posle u3meneniu');
  Print(FirstElem);
  readkey;
  Spisok:=FirstElem;
  While Spisok<>nil do
  begin
    Spisok:=Spisok^.next;
    Dispose(FirstElem);
    FirstElem:=Spisok;
  end;
end.