Один гб информации передаётся в сети за 512 сек. определите скорость передачи информации.

Скорость передачи информации: 2 мбайт/сек
Переводим 1 гбайт в мбайт или кбайт
Если в мбайт: 1000/512 = 1.95 мбайт/сек, округляем = 2 мбайт/сек
Если в кбайт: 1000000/512 = 1953 кбайт/в сек, переводим в мбайт = 1.95 мбайт.

Ничего не сказано о структуре файла f. Предположим, что данные в нем хранятся в виде записей с полями:
model - марка автомобиля
nomer - номер
name - фамилия
Сам файл имеет полное имя d:\car.txt
Тогда программа будет иметь вид:

type
   tcar=record
   model:string;
   nomer: string;
   name: string;
   end;
var
   f:file;
   car: tcar;
   m:string;
begin
assign(f,'d:\car.txt');
reset(f);
write('Введите марку машины: ');
read(m);
while not eof(f) do
  begin
  read(f,car);
  if m=car.model then
    writeln(car.name,' ',car.nomer);
  end;
close(f);
end.

В основе лежит формула определения расстояния между двумя точками в прямоугольной системе координат, при этом одна из точек совпадает с началом системы координат. В этом случае искомое расстояние определяется по формуле:

Поскольку в задаче не ставится вопрос определения самого расстояния, достаточно для каждой точки вычислить значение L² и сравнить их.
Окончательно задача сводится к нахождению минимального из значений
по заданным координатам х и у.

var
  ax, ay, bx, by, rx, ry: real;

begin
  writeln('Введите координаты первой точки');
  readln(ax, ay);
  writeln('Введите координаты второй точки');
  readln(bx, by);
  rx := sqr(ax) + sqr(ay);
  ry := sqr(bx) + sqr(by);
  if rx < ry then writeln('Первая точка ближе')
  else
  if rx > ry then writeln('Вторая точка ближе')
  else writeln('Обе точки равноудалены')
end.