Нужна помощь по Pascal ABC

Нужна помощь по Pascal ABC
1) Составьте программу, которая предлагает ввести строку s, состоящую из двух слов ,разделенных пробелом, и выводит каждое слово с новой строки.
2) Составьте программу, которая позволяет переставить местами слова строки s. Строка s , состоящая из двух слов, разделенных пробелом, вводится с клавиатуры.
3) Составьте программу, которая из слова "тематика" получает слово "математика" и "тема" и выводит эти слова на экран в столбик.

  • 1)

    var
    s: string;
    c: integer;
    begin
    writeln('введите строку из двух слов');
    readln(s);
    c := 1;
    while s[c] <> ' ' do begin write(s[c]); inc(c) end;
    writeln;
    for c := c + 1 to length(s) do write(s[c]);
    writeln;
    end.