Строки

[skiffter]

Здравствуйте ! Помогите пожалуйста Я ввожу в режиме диалога текст И нужно найти слова с максимальной и минимальной длиной букв и напечатать их

[ОДИНОЧЕСТВО В СЕТИ]

максимальной и минимальной длиной букв

это как не подскажете?

[skiffter]

Ну в смысле слово в котором наибольшее количество букв или наименьшее ))

[ОДИНОЧЕСТВО В СЕТИ]

так устроит?

uses crt;
var s:string; 
m:array[1..100] of string;  
i,p,n:integer;
max,min:string; 

begin   
 readln(s);
i:=0; 
repeat  
p:=pos(' ',s);  
inc(i);  m[i]:=copy(s,1,p-1);  
delete(s,1,p); 
until p=0; 
n:=i;
m[n]:=copy(s,1,length(s)-1);

max:=m[1]; 
min:=m[1]; 

for i:=2 to n do begin 
if length(m[i])>length(max) then max:=m[i];
if length(m[i])<length(min) then min:=m[i]; 
                 end;

 writeln;
writeln('Max length: ',max); 
writeln('Min length: ',min);  
readln; 
end.

[skiffter]

Спасибо большое !!! Сейчас попробую

[skiffter]

не подскажите что такое clrscr; а то в программе он не дает запустится пишет
[Error] Uniе1.pas(32): Undeclared identifier: 'clrscr'

[ОДИНОЧЕСТВО В СЕТИ]

удали эту строчку!

[skiffter]

Удалил появляется ошибка
Project Project1.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run to continue.

[skiffter]

Вы не скажите почему эта ошибка появляется?

[skiffter]

Спасибо за изменения но он почему то все равно ошибку выдает указывает на readln(s); Я вывожу ответ в Memo ничего ?