Все отрицательные элементы массива заменить единицей, положительные возвести в квадрат, нули оставить

const
    n = 100;
var
    f : Text;
    arr : Array[1..n] Of Integer;
    i : Byte;
begin
    Randomize;
    Write('Исходный массив: ');
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 1 to n do
    begin
        arr[i] := Random(31) - 15;
        Write(arr[i], ' ');
        if (arr[i] < 0)
        then
            arr[i] := 1
        else
            if (arr[i] > 0)
            then
                arr[i] := Sqr(arr[i]);
        Write(f, arr[i], ' ');
    end;
    Close(f);
end.

{Создать массив случайных чисел на интервале от -15 до 15. Все 
отрицательные элементы заменить единицей, положительные - возвести 
в квадрат , нули оставить без изменения. Сделать файловый вывод!}
 
var
  A: array[1..255] of integer;
  f: text;
  i, n: byte;
  
begin
  n := random(206) + 50;
  Assign(f, 'Измененный массив.txt');
  Rewrite(f);
  for i := 1 to n do begin
    a[i] := random(31) - 15;
    write(' ', a[i]);
    if a[i] < 0 then a[i] := 1
    else
    if a[i] > 0 then a[i] := sqr(a[i]);
    write(f, ' ', a[i])
  end;
  close(f)
end.