Просто пишите Writeln(a:10:5) и с помощью форматного вывода получаете число в стандартном виде. Первое число отвечает за кол-во символов для записи переменной, а второе число отвечает за число символом после запятой
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
Школа - Школьный Департамент.
Больница - Минздрав.
Автомобиль -Водитель.
Река - Море.
Планета - Солнечная Система.