Переделать програму с Turbo Pascal на Pascal ABC

Program GG_1;
Uses crt;
Type person=record
     name:string;
     Revenue:integer;
case tag: (teacher.student) of
  teacher: (degree:string;number:integer);
  Student: (mark:integer;form:string);
end;
var
 List:array [1..10] of person;
 I:integer;
 Level:integer;
procedure input;
 var sign:integer;
     ch:char;
begin 
 clrscr;
I:=0;
repeat
 I:=i+1;
 with list[i] do
 begin
   Write('Input type of person: 1-teacher, 2-student');
   readln(sign);
   if sign=1 then tag:=teacher else tag:=student;
   case tag of 
     teacher:begin
       Write('Name');readln(name);
       Write('Scientific degree');readln(degree);
       Write('Numder of scientific works');readln(numder);
       write('Revenue');readln(revenue);
     end;
     Student:begin
      Write('Name');readln(name);
      write('Revenue');readln(revenue);
      Write('Average mark'); readln(mark);
      Write('Form of education'); readln(form);     
     end;
   end;
 end;
 Writeln('Continue? y/n');
 ch:=readkey;
until ch:='n';
Write('Enter revenue level');
readln(level);
end;
procedure Output;
var j:integer;
begin
  for j:=1 to I do
    with list[j] do
      if revenue>level then
        case tag of
          teacher:begin
            Writeln('teacher: '.name.' '.degree.' '.number.' '.revenue); readln;
          end;
          Student:begin
            Writeln('student: '.name.' '.revenue.' '.mark.' '.form); readln;
          end;
        end;
end.