выполните перевод координат точек в десятичную систему счисления и отметьте точку на координатной плоскости. Соедигиы последовательно все точки вы получите рисунок ​

Type
  Route = record
    station: string[30];
    arrival: string[5];
    stop: string[5];
    cost: real
  end;

{ Программа для заполнения данными файла }
{
var
  F: file of Route;
  r: Route;

begin
  writeln('Вводите данные');
  writeln('');
  Assign(F, 'Route.dat');
  Rewrite(F);
  with r do
    repeat
      write('Населенный пункт (*-завершить): ');
      readln(station);
      if (station <> '*') then
      begin
        write('Время прибытия чч:мм ');
        readln(arrival);
        write('Стоянка чч:мм: ');
        readln(stop);
        write('Стоимость проезда, руб.коп: ');
        readln(cost);
        write(F, r);
      end
    until station = '*';
  Close(F)
end.
}

{ Программа для работы с заполненным файлом }

function hhmm2Int(s: string): integer;
{переводит время чч:мм в челое число минут}
var
  i, j, ierr: integer;

begin
  Val(Copy(s, 1, 2), j, ierr);
  if ierr = 0 then i := 60 * j else i := 0;
  Val(Copy(s, 4, 2), j, ierr);
  if ierr = 0 then i := i + j;
  Result := i
end;

var
  F: file of Route;
  F2:Text;
  r: Route;
  i, ierr, istop, n: integer;
  s: string;
  cstop: real;

begin
  Assign(F, 'Route.dat');
  Reset(F);
  n := 0;
  cstop:=0;
  while not Eof(F) do
  begin
    read(F, r);
    istop := hhmm2Int(r.stop);
    if istop > 0 then
      begin
      cstop:=cstop+istop;
      n := n + 1
      end
  end;
  cstop := cstop / n;
  Reset(F);
  Assign(F2,'screen.dat');
  Rewrite(F2);
  writeln('Населенные пункты, в которых стоянка дольше средней');
  writeln(F2,'Населенные пункты, в которых стоянка дольше средней');
  writeln('Населенный пункт  Прибытие  Стоянка,мин   Стоимость');
  writeln(F2,'Населенный пункт  Прибытие  Стоянка,мин   Стоимость');
  with r do
    while not Eof(F) do
    begin
      read(F, r);
      istop := hhmm2Int(stop);
      if istop > cstop then
      begin
        writeln(station:18, '  ', arrival, '      ', stop, '       ', cost:7:2);
        writeln(F2,station:18, '  ', arrival, '      ', stop, '       ', cost:7:2);
      end;
    end;
  Close(F);
  Close(F2)
end.

ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.

Скриншот всего экрана делается путем нажатия на клавишу PrtSc. Если нужен скриншот только активного окна, то комбинацией клавиш Alt+PrtSc.
После этого изображение попадает в буфер обмена. Надо не забывать, что запуск некоторых приложений очищает буфер обмена; на эту удочку не раз попадались любители вставлять скриншоты в Word, поэтому лучше заблаговременно запустить программу, в которой планируется обрабатывать скриншот, свернуть её и потом делать нужный скриншот.
Проще всего скриншот обработать в программе Paint, входящей в состав Windows. Сделав скриншот, заходим в Paint и из меню выбираем "Файл" - "Создать". Будет создан некоторый "холст" с размерами по умолчанию. У меня размер по умолчанию стотит 50х50 пикселей. Чтобы его задать, надо в меню выбрать "Рисунок" - "Атрибуты", выставить ширину и высоту по 50, единицы измерения - точки, палитра цветная. Потом нажать "По умолчанию", выйти из Paint и снова зайти. А можно, заходя в Paint, ставить тот размер, какой надо, и нажимать ОК.
Итак, создали маленький пустой холст. Нажимает Ctrl+V - это команда вставки изображения из буфера. Paint поймет, что картинка на хост не помещается и предложит расширить холст. Соглашаемся и вот уже картинка в редакторе. Почему лучше так, а не заранее создавать холст нужного размера? Во-первых, лень запоминать, сколько надо точек выставлять. Во-вторых, при любой вставке холст автоматически подгоняется под размер картинки.
Теперь можно редактировать картинку, периодически сохраняя её, чтобы не потерять при ошибках. По окончании редактирования выбираем "Файл" - "Поместить в центр рабочего стола". Если разрешение экрана не менялось после скриншота, картинка встанет точно по размеру.