Отправлено: 11.04.19 09:01. Заголовок: Требуется суровый приговор 2.

Условие задачи: на вход программы подаётся последовательность символов, заканчивающихся символом #. Других символов # во входной последовательности нет.
Будем называть словом любую последовательность подряд идущих символов, отделенную пробелами. Также слово может начинаться с начала строки.
Напишите программу, которая найдёт и выведет слово максимальной длины. Если в строке несколько слов максимальной длины, то вывести на экран первое такое слово.
Мой код:
var
a, p, i: integer=0;
line, max, min: string;
BEGIN
readln(line);
for i:=1 to length(line) do
begin
if (line[i ]<>' ') AND (line[i ]<>'#') then
begin
a:=a+1;
min:=min+line[i ]
end
else
if (p<a) then
begin
p:=a;
a:=0;
max:=min;
min:=''
end
else
begin
min:='';
a:=0
end
end;
write(max)
END.
Заранее спасибо.

 Отправлено: 11.04.19 09:07. Заголовок: - читать как ! Т.е...

[i ] - читать как ! Т.е. без пробела.

 Отправлено: 11.04.19 13:14. Заголовок: var a, p, i: integer..

цитата:

var a, p, i: integer=0;

так писать нельзя, =0 выдаёт ошибку компилятора, пишите как

BEGIN  
 a:=0; 
 p:=0; 
 i:=0;

программу я бы оценил в 3 балла, потому что она линейна по времени, но не эффективна по памяти (вы сохраняете всю строчку).
Используйте ввод в символ с циклом while ch<>'#' do

Пример на 4 балла

var 
   input: char;  
   intermediateS, maxS: string; 
  
 begin 
   readln(input);  
   while (input <> '#') do  
   begin 
     if (input <> ' ') then intermediateS := intermediateS + input 
     else   
     begin 
       if (length(intermediateS) >= length(maxS) ) then maxS := intermediateS;    
       intermediateS := '';  
     end;  
     readln(input);  
   end;   
   write(maxS);  
 end.

Крик души - проверяйте работоспособность кода в IDE, форматируйте его с отступами, используйте нормальные имена переменных.

 Отправлено: 11.04.19 13:51. Заголовок: cabanov.alexey, в мо..

cabanov.alexey, в моей IDE код работает.