Опишите заданный тип, осуществите ввод данных, произведите определенные операции и выведите на печать значение полей

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type rabota=record
familija:string;
name:string;
otchestvo:string;
vozrast:byte;
doljnost:string;
stag:byte;
chislo otrabotannix dney:byte;
var i:real;
begin
writeln('Vvedite familija')
readln(familija);
writeln('name');
readln(name) ;
writeln('otchestvo');
readln(otchestvo);
writeln('vozrast');
readln(vozrast);
writeln('doljnost')
readln(doljnost);
writeln('stag');
readln(stag);
writeln('chislo otrabotannix dney');
readln('chislo otrabotannix dney');
i:=stag/25*(1+(chislo otrabotannix dney/365))*100000;
writeln('Zarplata='i);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

type
  TWrk = record
    FIO: string[60];    { Ф.И.О. }
    age: integer;   { возраст }
    job: string[40];    { должность }
    serv: integer;  { стаж }
    days: integer;  { отработано }
    salary: real;   { зарплата }
  end;
 
var
  w: array [1..100] of TWrk;
  i, j, n: integer;
 
begin
  Write('Введите количество записей (1-100): '); ReadLn(n);
  WriteLn('Введите сведения:');
  for i := 1 to n do with w[i] do begin
    Write('                         Ф.И.О: '); ReadLn(FIO);
    Write('                     должность: '); ReadLn(job);
    Write('возраст, стаж, отработано дней: '); ReadLn(age, serv, days);
    salary := serv / 25.0 * (1 + days / 365.0) * 100000;
  end;
  for j := 1 to 64 do Write('-'); WriteLn;
  WriteLn('Ф.И.О.                                  | Возраст | Отработано');
  WriteLn('Должность                               |    Стаж |   Зарплата');
  for j := 1 to 64 do Write('-'); WriteLn;
  for i := 1 to n do with w[i] do begin
    WriteLn(FIO, '':40-Length(FIO), '|', age:8, ' |', days:12);
    WriteLn(job, '':40-Length(job), '|', serv:8, ' |', salary:12:2);
    for j := 1 to 64 do Write('-'); WriteLn;
  end;
end.

var
  w: array [1..100] of TWrk;

  for i := 1 to n do with w[i] do begin
    WriteLn(FIO, '':40-Length(FIO), '|', age:8, ' |', days:12);
    WriteLn(job, '':40-Length(job), '|', serv:8, ' |', salary:12:2);
...
  end;

  for i := 1 to n do begin
    WriteLn(w[i].FIO, '':40-Length(FIO), '|', w[i].age:8, ' |', w[i].days:12);
    WriteLn(w[i].job, '':40-Length(job), '|', w[i].serv:8, ' |', w[i].salary:12:2);
...
  end;