Каждый элемент массива заменить его квадратом

uses crt;
const n=20;
var Mas:array [1..n] of integer;
    i:integer;
begin
  for i:=1 to n do
    Mas[i]:=random(20);
  writeln('Исходный массив:');
  for i:=1 to n do
    write(Mas[i],' ');
  writeln;
  writeln('Преобразованный массив:');
  for i:=1 to n do
    begin
      Mas[i]:=sqr(Mas[i]);
      write(Mas[i],' ');
    end;
  readln;
end.

const n=8;
var Mas:array [1..n] of integer;
    i,max1,imax1,max2:integer;
begin
  for i:=1 to n do
    begin
      writeln('Введите элемент №=',i);
      readln(Mas[i]);
    end;
  max1:=Mas[1]; imax1:=1;
  for i:=1 to n do
    begin
      if Mas[i]>max1 then
        begin
          max1:=Mas[i];
          imax1:=i;
        end;
    end;
  max2:=-maxint-1;
  for i:=1 to n do
    if (Mas[i]<>max2) and (i<>imax1) then
      max2:=Mas[i];
  writeln('Максимальные элементы ',max1,' ',max2);
  readln;
end.