Конвертируйте из Паскаля в Си Исходное задание: Дана строка. Указать те слова, которые содержат хотя бы одну букву k. var s,tmp:string;
i,n:integer;
flag,word:boolean;
function letter (const let:char):boolean;
begin
if ((let>='a') and (let ='A') and (let<='Z')) then letter:=true
else letter:=false;
end;
begin
readln (s);
s:=s+' ';
n:=length(s);
flag:=false;
for i:=1 to n do
begin
if (letter(s[i])) and (not flag) then
begin
flag:=true;
tmp:='';
word:=false;
end else if (not letter(s[i])) and (flag) then
begin
flag:=false;
if (word) and (not (tmp='')) then writeln (tmp);
end;
if (flag) then
begin
tmp:=tmp+s[i];
if (s[i]='k') then word:=true;
end;
end;
end.

М...  заморила твоя задача однако
Program asd;
USES crt;
var
A:array [1..5] of integer;
min,max,min2,o,p:real;
i,n:integer;

Procedure max1;
begin
for i:=1 to 5 do
if A[i]>0 then
if min<A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
Procedure min1;
begin
for i:=1 to 5 do
if A[i]<0 then
if min>A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
BEGIN
clrscr;
For i:=1 to 5 do
begin
A[i]:=random(9)-5;
Write(' ',A[i]);
end;
Writeln;
//Otrizanie
For i:=1 to 5 do
if A[i]<0 then o:=o+A[i];
Writeln('Summa otrizatelnyx elementov: ',o);
//Polowitelnye
For i:=1 to 5 do
if A[i]>0 then p:=p+A[i];
Writeln('Summa polowitelnyx elementov: ',p);
if p<o then max1
else min1;
END.

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim A() As Integer
        Dim B() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next
        i = Rnd() * 100 + 1
        ReDim B(i)
        For k = 0 To i
            B(k) = Rnd() * -1000 + 500
        Next

        1.
        Dim msg_A As String
        msg_A = VerifySort(A)
        If msg_A <> CStr(A.Length) Then
            MsgBox(msg_A)
        Else
            MsgBox("Массив А упорядочен")
        End If

        Dim msg_B As String
        msg_B = VerifySort(B)
        If msg_B <> CStr(A.Length) Then
            MsgBox(msg_B)
        Else
            MsgBox("Массив B упорядочен")
        End If

        sort(A)
        msg_A = VerifySort(A)
        If msg_A <> CStr(A.Length) Then
            MsgBox(msg_A)
        Else
            MsgBox("Массив А упорядочен")
        End If

        2.
        Dim h As Integer
        h = InputBox("Введите h")
        i = CompareValue(A, h)
        If i <> UBound(A) Then
            MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
        Else
            MsgBox("У массива все элементы больше h.")
        End If

        i = CompareValue(B, h)
        If i <> UBound(B) Then
            MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
        Else
            MsgBox("У массива все элементы больше h.")
        End If
    End Sub

    Private Function VerifySort(ByRef Massiv() As Integer) As String
        Dim i, j, k As Integer
        Dim msg As String
        For i = Massiv.Length To 0 Step -1
            For j = Massiv.Length - 1 To 1 Step -1
                If Massiv(j) < Massiv(j - 1) Then
                    For k = 0 To Massiv.Length - 1
                        msg = msg & Massiv(k) & vbCrLf
                    Next
                    Return msg
                End If
            Next j
        Next i
        Return Massiv.Length
    End Function
    Private Function sort(ByRef Massiv() As Integer) As Integer
        Dim i, j, Dump As Integer
        For i = Massiv.Length To 0 Step -1
            For j = Massiv.Length - 1 To 1 Step -1
                If Massiv(j) < Massiv(j - 1) Then
                    Dump = Massiv(j)
                    Massiv(j) = Massiv(j - 1)
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
                    Massiv(j - 1) = Dump
                End If
            Next j
        Next i
        Return Massiv.Length
    End Function

    Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer
        Dim count As Integer
        Dim i As Integer
        For i = 0 To UBound(Massiv) - 1
            If Massiv(i) > h Then count = count + 1
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
        Next
        Return count
    End Function