Найти в массиве минимальный и максимальный элементы

uses crt;
var a:array[1..10] of integer;
max,min,i,j,s:integer;
begin
clrscr;
writeln('Èñõîäíûé ìàññèâ');
min:=40;
max:=0;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(51)-10;
  write(a[i]:4);
  if (a[i]>=max) then max:=a[i];
  if (a[i]<=min) then min:=a[i];
 end;
writeln;
writeln('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà ',max);
writeln('Ìèíèìàëüíûé ýëåìåíò ìàññèâà ',min);
writeln('Ýëåìåíòû ìåæäó ìèíèìàëüíûì è ìàêñèìàëüíûì, íå âõîäÿùèå â ìàññèâ');
for i:=min+1 to max-1 do
 begin
  for j:=1 to 10 do
   if (a[j]=i) then s:=i;
  for j:=1 to 10 do
   if (a[j]<>i) and (s<>i) then
    begin
     write(i:4);
     break;
    end;
  s:=0;
 end;
readln
end.

uses crt;
  const m: set of char = ['.', ',', ':', '-', ';', '!', '?'];
var s: string; i: byte;
 begin 
    i:=0;
    clrscr;     
    writeln ('Vvedite stroku: ');
    readln (s);
    repeat     
      inc (i);
  until (s[i] in m) or (i = length (s));
    if s[i] in m then     
      begin       
        delete (s, i, 1);
        writeln ('Rezultat udaleniya: ',s);
      end    
    else 
      writeln ('V stroke net znakov prepinaniya');
  end.