Паскаль.Процедуры и Функции.

[radon228]

Даны три слова,в каждом из которых от 1 до 6 строчных латинских букв и за каждым из которых следует пробел.
Напечатать эти слова в алфавитном порядке.



Надеюсь на вашу помощь)

[Ol'ga_new]

А процедура какую роль должна выполнять?

[radon228]

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

[radon228]

очень сильно прошу вашей помощи...

[Z1000000]

Вот так пишут софт в паралельном мире процедур и функций

Program Program4;
type WordArray = array[0..2] of String;

function IsSpace(ALetter:Char):Boolean;
begin
if ALetter = ' ' then Result := True else Result:=False;
end;

procedure DelimiteStr( aStr:String; var aWar:WordArray);
var
 FirstIndex : Integer;
 indexar,i : Integer;
begin
FirstIndex := 0;
indexar := -1;
aStr := aStr + ' ';
for i:= 1 to Length(aStr) do
 begin
 if not IsSpace(aStr[i]) then
  begin
  if FirstIndex = 0 then FirstIndex := i;
  end
 else if FirstIndex <> 0 then
  begin
  indexar := indexar + 1;
  aWar[indexar] := copy(aStr,FirstIndex,i-FirstIndex);
  FirstIndex := 0;
  end;
 end;
end;

procedure MaxMin(var A,B:String);
var
 Tmp : String;
begin
if A > B then
 begin
 Tmp := A;
 A := B;
 B := Tmp;
 end;
end;

var
 Str : String;
 myWar : WordArray;
 i : Integer;
begin
writeln('Введите 3 слова, в конце каждого пробел : ');
readln(Str);
DelimiteStr(Str,myWar);
MaxMin(myWar[0],myWar[1]);
MaxMin(myWar[0],myWar[2]);
MaxMin(myWar[1],myWar[2]);

for i:= 0 to 2 do
 writeln(myWar[i]);

end.

[radon228]

спасибо большое....очень благодарен)но есть одна проблема. Мне нужно чтобы сначала была процедура,а потом функция.
Вот пример:вычислить отношение R=A/B;

Program DoRatio;
uses crt;
var:A,B:Iinteger;
R:real;
procedure GetData(var x,y:integer);
begin
write('введите 2 числа:');
readln(x,y);
end;
function GetRatio(i,j:integer):real;
begin
GetRatio:=i/j;
end;
begin
Getdata(A,B);
R:=GetRatio(A,B);
writeln('R=',R);
end. 
Вот как-то так