Прог-ие 1К 2С / 3.1

program Project3;

{

3. Ввести в ЭВМ предложение длиной не более 80 символов,

содержащее числа и слова. Найти в нём самое длинное число.

Вывести на экран это число и его длину.

Количество пробелов между словами произвольно.

В программе использовать процедуру выделения слов из предложения

и функции для определения, является ли строка числом,

а также для определения числа максимальной длины(или его номера).

}

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows,

Unit1;

var

len, n : integer;

words : integer;

num_arr : id_max;

t : string;

predlog : string[80];

arr_sl : mas_str;

begin

{ TODO -oUser -cConsole Main : Insert code here }

t := 'Введите предложение не более 80 символов содержащее числа и слова';

CharToOEM(PChar(t), PChar(t));

writeln(t);

readln(predlog);

len := length(predlog);

vudeln(predlog, arr_sl, words);

num_arr := find_max_len(words, arr_sl);

if max_len > 0 then

for n := 1 to max_count do

writeln(arr_sl[num_arr[n]], ' ', max_len)

else

begin

t := 'В предложении нет чисел!';

CharToOEM(PChar(t), PChar(t));

writeln(t)

end;

readln;

end.