доделать программу

[Akeksander]

вроде что-то наклепал сам
но не работает
даже не компилит
не совсем осознаю в чём моя ошибка
вот в архиве мои наработки
а задание на скане
внизу которое

[Ybn2]

Я не тестировал, но сразу вижу ошибку, ты подключаешь модуль data, и файл такой есть data.pas, но в сомом модуле у тебя написано

unit main;

, должно быть по названию файла т.е.

unit data;

Тоже самое и с data2.pas

[Akeksander]

ну я это исправил
но он мне в data всё равно пишет ошибку не эту)
пишет в конце,что перед end нужен оператор,сколько бы их не ставил одно и тоже
писал я на PascalABC
а если в data 2 изменяю unit,то пишет в объявлении типов "повторно объявленный идентификатор"

[Stilet]

Во-первых:

unit data;   {название}
interface
uses crt;     {подключае модуль CRT}

Во-вторых.

type {типы}
data=record

Утебя модуль с таким названием. Меняй имя модуля.
В-третьих, переменная TestTypeKorr не обьявленна, откуда мы знаем что она и где она?

Дальше еще хуже...

[Ybn2]

Вот и еще ошибка, посмотри внимательней как пишутся модули в Pascal! Где у тебя

interface <интерфейсная часть>;
implementation < исполняемая часть >;
begin
<инициирующая часть>;
end .

[Akeksander]

ну вот с testtypekorr я понял
там просто нужно его заменить в соответствующих местах
на testnameport,testcountry,testsea и так далее..
с interface и implementation не совсем...
но вроде тоже более менее
ну у меня есть провал с этим.я не спорю.
а не могли бы вы всё же сформировать свою программу на основе того что у меня есть
только работающую правильно?

Вложение удалено потому что автор не умеет правильно выражаться!