Написать программу, которая запишет в текстовый файл 6 разных строк. Строки вводятся с клавиатуры. Паскаль.

Pascal  var     s : string;     T : text;     i : integer;  begin   assign (T,'File.txt'); //Ассоциация переменной T  с файлом File.txt   rewrite (T); //Перезапись файла T и открытие его для записи    for i := 1 to 6 do     begin      readln (s);      writeln (T,s);     end;     close(T); //Закрытие файла T  end.