Дана строка S и текстовый файл. Добавить строку S в конец файла.(Питон)

Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за день'); read(d);  for i := 1 to 15 do    y[i] := random (30) * d * 0.8;      for i:=1 to 20 do    g[i] := random (30) * d * 0.8;    for i:=1 to 15 do  begin    writeln('Сотрудник y_',i,' - ',y[i]);    sum:= sum + y[i];  end;  writeln;  writeln('Сумма отдела y - ', sum);  writeln;  for i:=1 to 20 do  begin    writeln('Сотрудник g_',i,' - ',g[i]);    sum_2:= sum_2 + g[i];  end;  writeln;  writeln('Сумма отдела g - ', sum_2);  writeln;    End.

Код Pascal:

Const
   N = 4;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
   S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
S:=0;
For i:= 1 to N do
    S:=S+A[i,i]+A[N-i+1,i];
WriteLn('Сумма диагональных элементов: ',S)
End.

Пример работы программы:

Исходный массив:
  5   6  -3  -5
 -1  -1   6   1
 -3  -7   7  -5
 -1  -2   2   9
Сумма диагональных элементов: 13