Дан массив чисел (n=5), заполненный случайным образом числами из промежутка [-20,50]

uses crt;
var i,k,s :integer;
a:array [1..5] of integer;
m:array [1..5] of string;
begin
s:=0;
Writeln ('Ââåäèòå k ');
Read (k);
Writeln ('Èñõîäíûé ìàññèâ ');
 For i:=1 to 5 do begin
  a[i]:=Random(71) - 20;
  Write (a[i],'   ');
 end;
Writeln;
Writeln('Ïîëó÷åííûé ìàññèâ ');
 For i:=1 to 5 do begin
  If a[i] mod i = 0 then
  m[i]:=inttostr(a[i])+inttostr(k)+'   '
  else m[i]:=inttostr(a[i])+'   ';
  Write(m[i]);
  end;
end.

uses crt;
var i,k,ki,j,ji :integer;
a:array [1..5] of integer;
begin
k:=0; ki:=-100; j:=-100; ji:=0;
Writeln ('Èñõîäíûé ìàññèâ ');
 For i:=1 to 5 do begin
  a[i]:=Random(71) - 20;
  Write (a[i],'   ');
 end;
 i:=0;
 Repeat i:=i + 1 until a[i] > 0;
 k:=a[i]; ki:=i;
 Writeln;
 For i:=1 to 5 do begin
  If a[i] < 0 then begin
  j:=a[i]; ji:=i;
  end;
 end;
 If not (k = -100) or (j = -100) then begin
 a[ki]:=j;
 a[ji]:=k;
 end
 else Writeln ('В данном массиве все числа либо положительны,либо отрицательны,либо равны нулю');
 Writeln ('Ïîëó÷åííûé ìàññèâ ïîñëå ïåðåñòàíîâêè ');
 For i:=1 to 5 do
  Write (a[i],'   ');
end.

uses crt;
var q,w,i :integer;
j:string;
a:array [1..5] of integer;
m:array [1..5] of string;
begin
Writeln('Ìàññèâ: ');
For i:=1 to 5 do begin
  a[i]:=Random(71)-20;
  Write (a[i],'  ');
  m[i]:=inttostr(abs(a[i]));
  q:=length(m[i]);
  j:=m[i];
          For w:=1 to q do
          If j[w] = inttostr(5) then m[i]:='100'
end;
 Writeln;
 Writeln ('Ïîëó÷åííûé: ');
 For i:=1 to 5 do begin
  If (a[i] <> strtoint(m[i])) and (m[i] <> '100') then
  m[i]:=inttostr(a[i])
  else if m[i]='100' then m[i]:='  ';
 end;
 For i:=1 to 5 do Write (m[i],'  ');
end.