Ребята нужна помощь, очень важно в turbopascal решить занести в файл 3 записи, каждая из…

Program Pr1; uses crt; var stroka: string; fl1: text; i,n: integer; Beginclrscr; assign (fl1,'output.txt'); writeln ('Введите количество фамилий'); readln (n); append (fl1); for i: =1 to n do begin writeln ('Введите фамилию, год рождения, женат или нет'); readln (stroka); writeln (fl1,stroka); end; close (fl1); stroka: ='; reset (fl1); for i: =1 to n do begin readln (fl1,stroka); writeln (',i,'-ая запись-',stroka); stroka: ='; end; close (fl1); end.