Дан одном массив поменять местами наиб и наим элем

Program aa;

uses crt;

Type mas=array[1..50] of integer;

procedure vvod(k:integer;Var c:mas);

var i:integer; begin For i:=1 to k do

begin Writeln('Введите ',i,' число'); Readln(c[i]); end;end;

procedure vivod (k:integer;c:mas);

var i:integer; begin for i:=1 to k do write (c[i]:5); Writeln; end;

Procedure men(k:integer; var c:mas);

Var i,s,max,min:integer; Begin max:=c[1]; min:=c[1]; For i:=2 to k do Begin

if c[i]<min then min:=c[i]; if c[i]>max then max:=c[i]; end;

//Writeln(min);

//Writeln(max);

For i:=1 to k do if c[i]=max Then c[i]:=min Else if c[i]=min Then c[i]:=max end;

var a,d:mas; n:integer; begin

Writeln('ввести количество злементов массива');Readln(n);

If (n>1)and(n<40) Then begin vvod(n,a); Writeln('Исходный массив');

Vivod(n,a); men(n,a); Writeln('Новый массив'); Vivod(n,a); end

Else Writeln ('Неправильно введено количество элементов массива!!!');end.

Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов и вывести на экран каждое слово, стоящее на четном месте в предложении.

ProgramZ_1;UsesCrt;TypeStroka=String;

Varx,y,z:Stroka; l,t,r:Integer;Begin Writeln('Введите текст');

Readln(x); t:=Length(x); l:=0; z:=Copy(x,1,t-1)+' ';

Writeln('Слова которые стоят на четном месте в предложении:');

Whilez<>'' do Begin r:=Pos(' ',z); y:=Copy(z,1,r-1); l:=l+1; Ifl mod2=0

ThenWrite(y,' '); Delete(z,1,r);End; Writeln; Writeln('Общее количество слов в предложении:'); Writeln(l);End.