{* Задача 53 *}

Unit ZADACH53;
Interface
Implementation
Begin
 writeln('В массиве 20 целых чисел, найти наибольший элемент и поменять его местами с первым элементом');
End.

Program zadach53;

Uses zadach53.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a   : Array [1..20] Of integer;
  k   : integer;
  max : integer;
  i   : integer;
Begin
  max := 1;
  For i := 1 To 20 Do {* Переменная i увеличивается с 1 до 20 *}
  Begin
    a[i] := random(100) - 50; {или  readln(a[i]);
    }
    write(a[i] : 5);
    If a[i] > a[max] Then
      max := i;
  End;
  k := a[1];
  a[1] := a[max];
  a[max] := k;
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
    write(a[i] : 5);
  readkey; {* Ждем нажатия пользователя *}
End.