Обработка текстовой информации-професии, результат деятельности, программное обеспечение Обработка видео информации- профессии, результат деятельности, программное обеспечение

Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(21)-10;
 write(a[i],' ');
 end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max = ',max,'  min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
 if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln; 
end.

Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2 
max = 10  min = -6
Измененный массив:
  180  216  252    0 -600  180 -200  360  252 -200

Var s,s1:string; i,p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:='';
for i:=1 to length(s) do
 case s[i] of
 ',','.' : s1:=s1+s[i]+' ';
 '-'     : s1:=s1+' - ';
 else s1:=s1+s[i];
 end;
p:=pos('  ',s1);
while p>0 do
 begin delete(s1,p,1); p:=pos('  ',s1); end;
p:=pos(' ,',s1);
while p>0 do
 begin delete(s1,p,1); p:=pos(' ,',s1); end;
p:=pos(' .',s1);
while p>0 do
 begin delete(s1,p,1); p:=pos(' .',s1); end; 
writeln(s1);
end.

Пример:
Введите строку:
перед точкой   или   запятой пробела нет   ,но после   -есть   .
перед точкой или запятой пробела нет, но после - есть.